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ABSTRACT 

\ 

This  thesis  explores  the  requirements  necessary  to  develop  a  graphics  support 
library  for  the  Ada  programming  language  hosted  on  the  Zenith  H  Z-10U 
microcomputer.  A  prototype  graphics  library  is  implemented  in  S<>S6  assembly 
language  embedded  in  an  Ada  package.  The  library  operates  with  JANUS  Ada  under 
the  CP  VI-S6  operating  system. 

Listings  of  library  routines  developed  are  provided  as  well  as  a  user's  guide  and 
demonstration  programs.  Potential  areas  for  further  investigation  and  development  are 
'■uggested. 

It  is  concluded  that  an  Ada  graphics  library  for  microcomputers  is  feasible  and 
practical. 


y  *  <  ^  1 


f  . v  .  '  r  ,  ,  s  ^  i 


r  'if,v 
r.TfP. 


THESIS  DISCLAIMER 


The  reader  is  cautioned  that  computer  programs  developed  in  this  research  may 
not  have  been  exercised  I'or  all  cases  of  interest.  While  every  effort  has  been  m..4e. 
within  the  time  available,  to  ensure  that  the  programs  are  free  of  computational  and 
logic  errors,  they  cannot  be  considered  validated.  Any  application  of  these  programs 
without  additional  verification  is  at  the  risk,  of  the  user. 

Some  terms  used  in  this  thesis  are  registered  trademarks  of  commercial  products. 
Rather  than  attempt  to  cite  each  occurrence  of  a  trademark,  all  trademarks  appearing 
in  tins  thesis  will  be  listed  below,  following  the  organization  holding  the  trademark: 

1.  United  States  Government  (Ada  Joint  Program  Office) 
Ada 

2.  Intel  Corporation 
Intel 

3.  Digital  Research  Corporation 
CP/M 

CP/M- 36 

4.  Microsoft  Corporation 
MS-DOS 

5.  Zenith  Data  Systems  Corporation 
Zenith 

H/Z-100 
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I.  INTRODUCTION 


A.  BACKGROUND 

The  Naval  Postgraduate  School  (NPS)  utilizes  approximately  fifty  Zenith 
H  Z-100  microcomputers  in  the  microcomputer  laboratories  of  the  Computer  Science 
Department.  There  were  many  reasons  for  choosing  this  particular  computer,  foremost 
of  which  is  the  hardware  architecture  [Ref.  ij  and  the  availability  of  support  software. 
The  I!  Z-lOO’s  central  processing  unit  (CPU)  includes  an  INTEL  8085  S-bit  processor 
and  an  INTEL  S' NS  16-bit  processor.  The  simple  architecture  and  instruction  set  of 
the  $os5  processor  supports  the  popular  CP  M  operating  system  and  is  compatible 
with  sos0  code.  The  more  complex  architecture  of  the  SOSS  processor  is  compatible 
with  S086  code  and  includes  more  internal  registers  (some  usable  as  either  8  or  16-bit), 
extended  addressing  modes,  and  a  more  complex  memory  management  scheme  using 
segment  registers.  The  8<N8  processor  supports  the  more  advanced  CP  M-86  and  MS- 
DOS  operating  systems. 

An  important  feature  of  the  H  Z-100  is  its  display  versatility.  The  basic  H.  Z-100 
includes  an  internal  monochrome  display  and  allows  the  addition  of  an  additional 
external  color  monitor.  The  color  monitor  is  of  medium  resolution  with  640  horizontal 
and  225  vertical  pixels  i64o  X  512  in  the  interlace  mode).  Three  64k  pages  of  video 
RAM  memory  provide  eight  colors  (or  eight  intensity  levels  with  a  monochrome 
monitor). 

A  primary  function  of  the  microcomputer  laboratory  is  to  support  computer 
science  courses  providing  special  emphasis  on  tactical  computer  applications. 
According  to  Department  of  Defense  policy  (Ref.  2j.  "The  Ada  programming  language 
shall  become  the  single,  common  computer  programming  language  for  defense  mission- 
critical  applications.  Effective  1  January  1984  for  programs  entering  full-scale 
engineering  development.  Ada  shall  be  the  programming  language."  To  assist  in 
meeting  this  requirement.  NFS  provides  courses  which  include  the  use  of  Ada  in  the 
development  of  tactical  program  applications  programs.  Most  of  these  programs  are 
run  on  the  11  /-!<)<)  computers  using  the  JANUS  Ada  compiler,  fo  date,  several 
validated  .Ada  compilers  have  been  approved  for  specific  computer  s\ stems,  with  main 
mare  expected  to  be  approved  in  the  near  future.  However,  as  Patrice  Wagner  points 


') 


out  [Ref.  3]  there  has  been  little  measurable  response  within  the  compute-,  graphics 
industry.  An  improvement  in  this  area  can  be  expected  with  the  acceptance  of  the  Ada 
Binding  to  the  Graphical  Kernel  System  (GKS)  [Ref.  4j  by  the  American  National 
Standards  Institute  (ANSI)  X3H3  committee  on  graphics  standards.  However,  we 
cannot  sit  back  and  wait  for  industry  to  provide  all  the  toois  necessary  to  conduct  Ada 
graphics  education  and  research.  Widespread  use  of  Ada  can  be  expected  m  the  near 
future  and  with  that  use  there  will  be  increasing  requirements  for  individuals  with  Ada 
graphics  knowledge.  The  NFS  has  an  obligation  to  assist  the  Navy  in  meeting  those 
educational  requirements. 

B.  PURPOSE 

It  is  the  intent  of  this  thesis  to  develop  an  Ada  language  graphics  programming 
capability  by  developing  a  low  level  design  and  partial  implementation  of  an  Ada 
graphics  library  which  can  be  expanded  to  include  a  subset  of  the  Ada  language 
binding  to  the  GKS.  Functions  to  be  included  will  be  those  primitives  necessary  for: 

•  clearing  the  screen 

•  >etung  a  pixel 

•  drawing  a  line 

•  selecting  a  color 

•  filling  polygons 

•  cursor  control 

These  basic  primitives  will  be  implemented  using  S0S6  assembly  language 
embedded  in  an  Ada  package.  The  CP  M-S6  operating  system  and  the  JANUS  Ada 
compiler  will  be  used  for  this  implementation. 

It  is  expected  that  the  primary  use  for  this  software  will  be  in  courses  which 
emphasize  tactical  applications  of  computers.  It  is  becoming  more  and  more  common 
to  find  graphical  displays  in  tactical  systems.  The  ability  of  computers  to  provide 
graphical  displays  which  aid  in  tactical  decision  making  is  widely  recognized  and  the  list 
or  tac-icai  applications  utilizing  graphical  displays  can  be  expected  to  grow  as  faster 
.:td  bettor  graphics  displays  ..ire  developed. 

[■  >  mtic-.p.ited  that  tins  sort  ware  will  assist  in  gaining  an  insiuht  into  the 
le.'.Nl."  .  dev  el  pmg  a  GKS  implementation  for  Ada  on  a  microcomputer.  As  an 

1.  me  ue:.e:;\  aid  m  the  development  of  .Ada  graphics  programs  on  ti  e 

!  i  /-!'"■  , 


C.  THESIS  ORGANIZATION 


Chapter  1!  '"veins  -a:*.::  .1  !'r:ef  overview  of  the  architecture  of  the  II  Z-10O 
v'rr.ruter  The  overview  is  presented  to  a>s:«t  the  reader  in  understanding  the  selection 
and  implement at: : n  the  graphics  algorithms.  Next  there  is  a  brief  discussion 
explaining  the  use  of  tne  JANUS  Ada  compiier  and  CP  M-S6  operating  system. 
Included  in  tun  dis.-awcr.  is  a  description  of  parameter  passing  procedures  in 
JANES  Ada.  The  remainder  of  Chapter  II  is  devoted  to  providing  a  detailed 


Chapter  III  provides  a  description  of  the  test  demonstration  programs  listed  in 
Appendices  B-L.  AN-:  .nGuded  in  this  chapter  is  an  evaluation  of  the  II  Z-lUU  color 
graphics  cup.tr.l/y  Shoruemings  and  sy stein  hardware  performance  are  discussed. 
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rocedures  and  sample  procedure  calls  are  provided  as  examples. 

Appendices  B-E  arc  program  listings  of  demonstration  programs  written  in  .Ada. 
hey  /.re  provided  t  o  denhonstrv.e  the  use  of  tite  Ada  graphics  library  as  well  as  serving 
>  a  supplement  to  the  user  s  guide. 

Appendix  f  is  a  listing  of  the  specification  package  for  the  Ada  graphics  library, 
he  "pe^uNauou  package  defines  the  formats  of  all  externally  callable  library 

••  •  .»  1  •  -  S 

Appendix  G  :s  the  assembly  cede  listing  of  all  procedures  contained  in  the  Ada 
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II.  ALGORITHMS 


A.  H/Z- 100  ARCHITECTURE 

The  following  overview  of  the  H  Z-100  architecture  is  presented  in  order  to 
clarify  the  method  of  implementation  of  specific  algorithms.  Figure  2.1  is  a  block 
diagram  of  the  basic  architecture  of  the  H  Z-100  computer. 

NPS's  H  Z-100  computers  are  in  the  process  of  being  upgraded  to  include  the 
Model  ZYM-1330  color  monitor.  192k  of  on-board  cpu  memory  and  three  64k  pages 
of  video  RAM. 

The  display  screen  is  formed  by  a  matrix  of  640  horizontal  and  223  vertical 
pixels.  Each  pixel  is  mapped  to  a  bit  in  each  of  the  three  color  planes  (red.  green,  and 
blue)  in  video  RAM.  Display  management  is  provided  by  the  video  processor's  CRT 
controller  i  CRT-C). 

The  CRT-C  has  two  modes  of  operation;  the  character  based  mode  and  the  pixel 
based  mode.  In  the  character  based  mode,  the  CRT-C  is  programmed  for  nine  scan 
lines  per  character,  80  characters  per  line  and  25  lines  per  screen.  In  the  pixel  based 
mode,  the  CRT-C  is  normally  programmed  to  control  a  matrix  of  640  X  225  pixels. 

Mapping  of  video  RAM  to  the  screen  is  performed  by  the  CRT-C  to  allow 
scrolling  of  the  screen  and  management  of  displuyable  nondisplayable  data.  Mapping 
of  the  display  to  physical  addresses  in  video  RAM  is  organized  such  that  128 
(numbered  0-127)  consecutive  bytes  are  allowed  for  each  scan  line.  However,  only  SO 
of  the  12S  bytes  are  used  to  control  display  of  the  640  pixels  per  scan  line.  Bytes 
80-127  of  each  line  must  not  be  used  or  erroneous  data  may  be  displayed. 
Additionally,  the  225  displayable  scan  lines  may  be  considered  to  be  in  sets  of  16  lines 
of  which  only  the  first  nine  lines  of  each  set  are  displayable. 

When  operating  in  the  character  based  mode,  the  CRT-C  is  programmed  to  map 
around  the  non-displayable  video  RAM.  However,  in  the  pixel  based  mode,  it  is 
necessary  to  incorporate  a  mapping  algorithm  into  graphics  routines.  This  means  that 
of  the  4 0(,)  scan  lines,  only  225  are  displayable.  In  addition,  the  CRT-C  is  normally 
programmed  so  that  the  bottom  character  row  (9  scan  lines)  is  zeroed  during  vertical 
retrace  time.  This  is  done  to  keep  uninitialized  data  from  being  displayed  during 
scrollins.  This  means  that  onh  24  of  the  25  character  rows  or  216  of  the  225 


displayable  scan  lines  actually  display  data.  The  Ada  graphics  library  has  been 
designed  to  work  within  these  restrictions  in  order  to  maintain  compatibility  with 
existing  1 1  Z-loO  software,  figure  2.2  illustrates  the  display  matrix  including  the  scan 
line  and  pixel  numbering  system. 
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blue  and  red  color  planes  will  also  be  written  to.  However,  this  feature  was  found  to 
be  unsatisfactory  when  constructing  a  graphics  picture  consisting  of  multiple  colors 
and  adjacent  or  overlapping  objects.  Under  these  conditions,  it  was  discovered  that  the 
only  color  piane  which  could  be  guaranteed  to  contain  correct  data  was  the  one  which 
was  directly  written  to.  Therefore,  the  algorithms  implemented  in  the  Ada  graphics 
library  utilize  the  second  method  which  involves  direct  control  over  each  of  the  three 
color  planes.  This  means  that  the  implemented  algorithms  must  access  all  three  color 
planes  for  each  pixel  that  is  set.  [Ref.  1:  pp.  4.30-4.3$] 


TABLE  1 


COLOR  PLANE  ADDRESSES 


blue 

red 

green 


RAM  ADDRESSES 

0C0000  -  OCFFFF 
ODOOOQ  -  ODFFFF 
OEOOOO  -  OEFFFF 


To  produce  color,  the  video  RAM  is  divided  into  three  main  colors:  red.  green, 
and  blue.  Video  RAM  memory  mapping  of  the  three  color  planes  is  provided  in  Table 
1  with  all  addresses  in  hexadecimal.  The  pixel  seen  on  the  color  monitor  is  actually 
composed  of  three  superimposed  pixels,  one  in  each  color  plane.  By  selecting 
combinations  of  the  three  basic  colors,  eight  different  colors  may  be  displayed  as 
indicated  by  Table  2  . 

B.  JANUS/ADA 

An  overview  of  the  JANUS  Ada  compiler  [Ref.  5]  and  the  CP  M-S6  operating 
system  [Ref.  6]  relating  to  the  implementation  of  the  Ada  graphics  library  is  presented 
to  assist  the  reader  in  understanding  the  methods  used  to  implement  the  graphics 
algorithms.  The  graphics  routines  are  available  to  an  .Ada  language  program  by 
linking  to  library  routine  ADAGRAPH.LIB  (Appendix  F). 

ADAGRAPII.LIB  is  implemented  as  an  Ada  specification  package.  That 
package  contains  the  specifications  of  the  callable  library  procedures  plus  a  list  of  the 
variables  used  by  the  Ada  graphics  library  assembly  code.  The  assembly  code  is 
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included  in  Ada  assembly  package  ADAGR_A.PH.ASM  (Appendix  G).  The  following 
steps  are  used  to  compile,  assemble,  and  link  the  Ada  graphics  library, 
m  JANUS  ADAGRAPH. LIB 

(2)  JASMS6  ADAGRAPH 

(3)  JUNK  ADAGRAPH 


TABLE  2 
COLOR  TABLE 


GREEN 

RED 

BLUE 

DISPLAY  COLOR 

0 

0 

0 

black 

0 

0 

i 

blue 

0 

1 

5 

red  j 

0 

1 

i 

magenta 

1 

0 

0 

green 

1 

0 

l 

cyan 

1 

1 

0 

yellow  ! 

1 

1 

1 

white 

Parameters  are  passed  in  Ada  by  pushing  them  onto  the  system  stack.  Discrete 
and  access  data  type  parameters  of  mode  IN  are  passed  by  value.  All  other  data  type 
parameters  and  modes  are  passed  by  reference.  Upon  entry  to  a  procedure,  the  top  of 
the  stack  contains  the  return  address.  Parameters  or  parameter  addresses  appear  on 
the  stack  with  the  last  parameter  nearest  the  top  of  the  stack.  Figure  2.3  is  an  example 
illustrating  the  format  of  a  procedure  specification  and  the  corresponding  location  of 
parameters  on  the  system  stack  when  the  procedure  is  executed. 

If  the  parameters  passed  are  only  of  mode  IN.  then  the  assembly  procedure  must 
remove  those  parameters  from  the  stack  and  leave  only  the  return  address  on  top  of 
the  stack  before  executing  a  RET  instruction  to  return  from  the  procedure  to  the 
calling  program.  If  the  parameter  list  includes  any  mode  OUT  or  IN  OLT  parameters, 
then  the  stack  must  be  in  the  same  configuration  upon  exit  from  the  procedure  as  it 
was  upon  entry. 

When  it  is  desired  to  access  parameters  on  the  stack  without  altering  the  stack 
contents,  then  the  BP  register  should  be  used.  The  following  steps  illustrate  how  this 
can  be  performed. 

(1)  MOV  BP,  SP  ;Copy  S?  register  to  BP  register 
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Figure  2.3  Parameter  Passing. 

(2)  MOV  AX,  [BP+2]  ;Move  last  variable  to  AX  register 

(3)  MOV  BX,  [ BP+lj  ;Move  next  to  last  variable  to  BX 

C.  GRAPHICS  ALGORITHMS 

The  following  paragraphs  provide  a  detailed  explanation  of  each  graphics  routine 
in  the  Ada  graphics  library  and  the  algorithms  used  to  implement  those  routines. 
Several  of  the  low  level  subroutines  used  to  implement  the  library  are  not  available  to 
the  user  and  are  therefore  not  listed  in  the  User's  Guide  (Appendix  A).  Only  those 

graphics  routines  that  have  an  apparent  use  in  an  Ada  language  program  were  made 

externally  callable. 

1.  Clear  Screen  (CLS) 

The  CLS  routine  will  clear  the  screen  in  one  frame  time  (approximately  16.” 
ms  for  60  Hz  operation).  The  CLS  algorithm  [Ref.  1:  p.  4-46]  is  described  in  the 
following  steps: 

(  1 )  Input  and  save  the  video  status  from  1  O  port  DSihex). 

(2)  Blank  the  screen  by  outputting  Ol'ihex)  via  1  O  port  DS(hex). 

(3)  Output  a  '■()"  in  bit  3  of  the  B  control  port  OIL hex >.  This  signals  the  video 

controllc  that  the  bit  planes  will  be  set  to  zero,  fins  stop  6  performed  W 
executing  an  input,  moudy.  and  output  sequence. 

(-1)  Output  a  '<  to  bit  3  of  the  A  control  port  D'M'exi.  This  enables  the  video 
processor's  CLRSCRN  signal. 

(5)  Wait  for  one  frame  period  to  allow  time  to  reset  all  of  video  RAM. 

'  6 1  Output  a  I"  to  bit  3  of  port  D'Jt hex).  Tins  disables  the  CLRSCRN'  -ugnui. 
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(~)  Restore  video  status  that  was  saved  in  step  1  bv  outputting  the  saved  status 
via  port  DM  hex). 

2.  Coior  Selection 

When  the  color  routine  is  called,  it  is  passed  an  integer  identifying  the  selected 
color.  In  normal  operation,  once  a  color  has  been  selected,  it  remains  the  system  coior 
until  changed  by  another  call  to  the  color  procedure. 

The  color  procedure  uses  the  color  code  parameter  to  perform  two  basic 
functions.  First,  it  sets  each  of  the  three  color  plane  variables  to  base  addresses  which 
will  be  used  by  other  procedures  to  initialize  the  E  segment  register  for  addressing  the 
the  required  color  planes.  Second,  a  control  word  (”S  hex)  is  output  to  the  video 
control  register  via  I  O  port  DS(hex).  The  control  word  disables  the  simultaneous 
write  capability  of  the  video  controller.  Table  3  lists  the  data  used  to  control  color 
selection. 


TABLE  3 

COLOR  COM  ROL 

or  Var.  1  Var.  2  Var.  3 


0 

white 

COOO 

DOOO 

EOOO 

1 

cyan 

COCO 

EOOO 

EOOO 

0 

magenta 

COOO 

DOOO 

DOOO 

3 

blue 

COOO 

COOO 

COOO 

2 

yellow 

DOOO 

EOOO 

EOOO 

5 

green 

EOOO 

EOOO 

EOOO 

6 

red 

DOOO 

DOOO 

DOOO 

7 

black 

— 

— 

— 

In  normal  operation,  control  word  bits  o.  1.  j,  are  set  to  "<>"  bit  a  is  set  t 
1  and  bits  arc  used  to  control  the  simultaneous  write  capability  of  video  RAM 
he  c.Mr  routine  does  not  alfcct  the  contents  of  the  E  segment  register,  but  'imp', 
ii'ntii/es  variables  winch  will  be  used  to  modify  the  E  segment  register  as  requires 
hi'  is  done  to  maintain  compatibility  with  other  II  soirwure  w  limit  uses  t:  c  i 

.omen:  register,  e  g..  the  standard  1.0  library. 

'  \  ideo  Ram  Addressing 

Mapping  o!  the  video  to  the  screen  is  iccomplished  in  tw-'  steps.  1  i.e  liiu 
er:  rn.ed  m  die  AD.J  SI.  procedure  which  accents  a  A  "osin.;:;  in  t'ne  range  "-21 


and  maps  that  position  to  a  displayable  scan  line.  This  mapping  is  described  by  the 
equation  Scan_Line_\umber  =  Y-iY  Mod  lb)*".  This  function  is  implemented  by  a 
simple  counter  which  adds  seven  to  the  scan  line  count  for  each  block  of  16  lines.  Step 
two  is  performed  by  the  REL_YID_ADDR  procedure.  This  procedure  uses  the  X 
position  and  scan  line  number  to  calculate  the  corresponding  relative  byte  address  in 
video  RAM.  This  is  a  relative  address  since  it  is  independent  of  the  color  plane. 
Relative  byte  addresses  are  calculated  using  the  formula: 

Relative_Address  =  Y  *  128  +  X  Mod  8. 

Prior  to  address  calculation,  error  checking  is  performed  to  insure  that: 

0<=X<=639  and  0<=Scan_Line_Number<=376. 

4  Pixel  Display 

Displaying  of  individual  pixels  is  performed  by  procedure  SET_P!XEL. 
Procedure  SET_PIXEL  accepts  an  (X.Y)  coordinate  and  performs  the  following  steps: 

I  1 )  Calls  procedure  ADJ_SL  to  map  the  y  coordinate  to  a  displayable  scan  line. 

i  2)  Calls  procedure  REL_Y1D_ADDR  to  get  the  relative  byte  address. 

(3)  Calculates  the  relative  bit  position  within  a  byte  based  on  the  x  coordinate. 

(4)  Initializes  segment  E  to  provide  the  base  address  for  the  desired  color  plane. 

(5)  Sets  the  selected  pixel  by  writing  to  the  relative  address. 

(6)  Repeals  steps  4  and  5  for  each  of  the  three  color  plane  variables. 

5.  Line  Drawing 

Line  drawing  may  be  performed  by  either  procedure  D RA W_ LINE  or 
procedure  DRAW_MLINE.  The  two  procedures  use  the  same  algorithm  for  line 
drawing  with  the  difference  being  in  the  way  that  intersecting  lines  are  displayed. 
Procedure  DRA\V_LINE  always  displays  the  most  recently  drawn  line  on  top  while 
procedure  DRAW_MLINE  mixes  the  colors  of  crossing  lines  at  the  point  of 
intersection.  The  ae  drawing  algorithm  is  an  adaptation  of  a  general  integer  digital 
differential  analyzer  (integer  DDA)  algorithm  described  by  Marc  Berger  [Ref  pp. 
41-45],  The  general  integer  DDA  has  been  expanded  from  four  to  six  cases  and  a 
smoothing  function  has  been  included.  The  two  additional  cases  were  added  to  handle 
the  special  cases  where  a  line  is  either  vertical  or  horizontal.  The  smoothing  function 
was  added  to  improve  symmetry  in  the  staircase  e!:eet  winch  is  inherent  with  raster 
scan  display s. 


l!:c  integer  DDA  algorithm  is  m  iterative  process  which,  operates  by  taking 
steps  alone  the  X  and  or  Y  axis  beemnine  at  line  start  and  continuin'  to  line  end. 


The  direction  of  each  step  is  determined  by  an  error  variable  which  identifies  whether 
the  present  position  is  above  or  below  the  ideal  line.  Alter  each  step,  the  error  variable 
is  updated  based  on  the  direction  of  movement.  The  initial  value  of  the  error  variable 
is  determined  by  the  smoothing  function  which  biases  the  error  variable  so  that  the 
first  pixel  step  in  one  axis  is  delayed  based  on  the  slope  of  the  line.  Without  this  bias 
the  DDA  algorithm  frequently  makes  an  erroneous  first  move.  An  example  of  an 
extreme  case  illustrates  this  point.  For  example,  if  a  near  horizontal  line  with  a  single 
pixel  change  in  Y  is  drawn  by  the  unbiased  algorithm  the  pixel  step  will  occur  at  line 
start.  However,  in  the  biased  algorithm  the  pixel  step  will  ^ccur  at  the  approximate 
midpoint  of' the  line.  This  provides  an  obvious  enhancement  in  symmetry  to  a  staircase 


Implementation  of  the  six  cases  in  the  line  drawing  algorithm  assumes  that  the 
input  coordinates  are  ordered  so  that  Y_START  <  =  Y_END.  This  ordering  is 
enforced  by  the  line  drawing  procedure  prior  to  plotting  a  line. 

In  tiie  description  of  the  six  cases  which  follows,  initial  values  of  X  and  Y  are 
respectively  X_START  and  f  START  and  the  following  definitions  apply. 

•  X  X  coordinate 

•  Y  Y  coordinate 

•  X_START  X  coordinate  of  line  start 

•  Y_START  Y  coordinate  of  line  start 

•  X_END  X  coordinate  of  line  end 

•  Y_END  Y  coordinate  of  line  end 

•  DX  X_END  -  X_START 

•  DY  Y_END  -  Y_STAXT 

•  E  error 


(1)  DY  =  0. 

This  is  a  horizontal  line, 
initialize 
X: =X_START 
Y: =Y_START 
end  initialize 


repeat  until  ( X=X_EMD ) 


end  repeat 

(2)  DY  <=  DX,  DX  >  0,  and  DY  >  0. 

This  is  a  line  with  positive  slope  between  0  and  1 
initialize 
X: =X_START 
Y: =Y_ START 
E:  =DX/(  DY+ 1 ) 
end  initialize 

repeat  until  ( X=X_END  &  Y=Y_END ) 
if  ( E<0 )  then 
X:  =X+1 
E: =E+DY 
otherwise 
X:  =X+1 
Y: =Y+ 1 
E: =E-DX+DY 
end  if 
end  repeat 

(3)  DX  <  DY,  DX  >  0,  and  DY  >  0. 

This  is  a  line  with  positive  slope  greater  than  1. 
initialize 
X: =X_START 
Y: =Y_START 
E:  =DY/(  DX+ 1 ) 
end  initialize 

repeat  until  ( X=X_END  &  Y=Y_EMD ) 
if  ( E<0 )  then 
X;  =X+1 
Y:  =Y+ 1 
E: =E-DX+DY 


tnerwi se 
Y: =Y+ 1 
E:  =E-DX 


end  reoeai 


This  is  a  vertical  line. 


initialize 
X: =X_START 
Y: =Y_START 
end  initialize 
repeat  until  (Y=Y_END) 

Y:  =Y+  1 
end  repeat 

(5)  DY  >=  A3S(DX),  DX  <  0,  and  DY  <  0. 

This  is  a  line  with  negative  slope  between  -1  and  0 
initialize 
X: =X_START 
Y: =Y_ START 
E:  =DX/(  DY  + 1 ) 
end  initialize 

repeat  until  ( X=X_END  &  Y=Y_END ) 
if  (E<0)  then 
X:  =X- 1 
E:  =E+DY 
otherwise 
X: =X- 1 
Y:  =Y+ 1 
E:  =E+DX+DY 
end  if 
end  repeat 

(6)  A3S(DX)  <  DY,  DX  <  0,  and  DY  <  0. 

This  is  a  line  with  negative  slope  less  than  -1. 
initialize 
X: =X_START 
Y: =Y_START 
E:  =DY/(  DX+  1 ) 
end  initialize 

repeal  until  ( X=X_EMD  &  Y=Y_EMD) 
if  ( E<0 )  then 


X:  =X-1 
v.  =y+ i 
E:  =E4-DX+DY 
otherwi se 
y:  =Y+  i 
E: =E»DX 
o  r»ci  j. 

end  repeat 
6,  Circle  Drawing 

Circle  drawing  is  performed  by  passing  the  (X.Y)  coordinate  of  the  circle 
center  and  a  radius  to  procedure  CIRCLE.  1  he  algorithm  executed  by  the  circle 
drawing  routine  is  an  implementation  of  Bresenham  s  circle  algorithm  described  b;. 
Hearn  and  Baker  [Ref.  S:  pp.  6~-69j.  In  this  implementation,  the  algorithm  has  been 
modified  to  include  a  correction  factor  to  compensate  for  the  X:Y  pixel  ratio  of  the 
raster  display. 

Bresenham's  algorithm  takes  advantage  of  the  symmetry  of  a  circle  in 
providing  an  efficient  incremental  method  for  plotting  a  circle.  In  this  algorithm,  eight 
points  are  plotted  for  each  parameter  calculation.  Although  multiplications  are 
required  in  parameter  calculations,  the  multiplier  is  a  power  of  2.  so  all  multiplications 
can  be  reduced  to  a  less  costly  shift  operation.  Figure  2.4  is  a  (low  chart 
representation  of  the  implemented  version  of  Bresenham's  algorithm. 

~.  Color  Testing 

The  color  of  an  individual  pixel  may  be  determined  by  passing  an  -  X.Y> 
coordinate  to  procedure  lNQt'IRE_COLOR.  This  procedure  will  determine  the  pixel 
color  and  return  an  integer  value  delining  the  color  code.  Color  codes  are  listed  in 
Table  2  . 

The  color  testing  algorithm  uses  the  (X.Y)  coordinate  to  calculate  a  relatise 
byte  address.  It  then  uses  the  X  coordinate  to  generate  a  bit  mask  to  identify  the 
specific  bit  location  within  a  byte.  The  relative  byte  address  and  bit  mask  are  then 
used  to  test  the  corresponding  address  in  each  of  the  three  color  planes,  lh;s  test 
identifies  the  color  components  contained  in  that  pixei  and  a  color  code  is  returned  to 
tiie  calling  program. 


START 


INIT .  VARLABLES 

X:  =0 

Y  :  = RADIUS 
P  :  =3- 2 -RADIUS 


PLOT  CIRCLE  POINTS 


SET  PIXEL (X_CENTER  -X 
SETPIXEL (X_CENTER -X 
SET_P IXEL ( X_CENTER -X 
SETP IXEL ( X  CENTER -X 
SET_PIXEL (X_CENTER -Y 
SET_P TXEL ( X_CENTER - Y 
SETPIXEL (X_CENTER +Y 
SET  PIXEL  (X  CENTER -Y 


,  Y_CENTER-Y/2) 
,  Y  CENTER  +Y/2) 
,  Y_CENTER-Y/2) 
,  Y_CENTER-Y/2) 
,  Y_CENTER  +X/2) 
,  Y_CENTERrX/2) 
,  Y_CENTER-X/2) 
,  Y  CENTER -X/2) 


EXIT 


-X  *6 


P : =P+4* (X-Y) +10 


Y : =Y- 1 


X : -X  »  1 


The  actual  implementation  of  each  of  the  two  fill  procedures  is  subdivided  into 
two  procedures.  The  first  procedure  initializes  constant  variables  and  then  calls  the 
second  procedure.  The  second  procedure  is  used  for  successive  recursive  calls.  This 
technique  minimizes  the  number  of  parameters  which  must  be  passed  on  each 
successive  recursive  call. 

An  individual  call  to  either  of  the  fill  procedures  can  fill  an  area  of  at  most  a 
few  square  inches.  Attempting  to  fill  a  larger  area  may  result  in  a  stack  overflow  error. 
This  is  an  implementation  limitation  which  can  be  circumvented  by  subdividing  a  large 
area  into  smaller  areas,  each  of  which  may  be  filled  separately.  An  exact  upper  limit 
on  the  size  of  an  area  which  may  be  filled  by  a  single  call  to  a  fill  procedure  is  difficult 
to  predict  since  it  depends  on  the  starting  point  within  a  specified  area.  Additionally, 
area  filling  is  an  inherently  slow  process  due  to  the  large  number  of  calculations 
involved. 

9.  Cursor  Control 


The  ”-r"  symbol  is  used  to  represent  a  graphics  cursor.  Cursor  positioning  is 
controlled  by  procedures  SET_CURS  and  RESET_Cl'RS.  Procedure  SET_Cl  RS 
accepts  an  (X.Y)  coordinate  and  displays  a  cursor  centered  at  that  coordinate. 
Procedure  RESET_CURS  accepts  an  (X.Y)  coordinate  as  input  and  erases  a  block  of 
addresses  surrounding  that  coordinate.  Both  procedures  affect  only  the  color  planes 
that  are  enabled  by  the  current  system  color. 

Management  of  the  cursor  display  and  positioning  is  a  responsibility  of  the 
user  program.  A  cursor  is  not  automatically  displayed  nor  is  there  a  limit  on  the 
number  of  cursor  symbols  which  may  be  displayed  concurrently 

The  cursor  symbol  is  composed  of  nine  p:\eis  with  the  center  of  the  cursor 
being  the  reference  point  for  positioning.  In  order  to  be  able  to  position  the  cursor  at 
anv  i X.Y)  screen  coordinate,  it  is  necessarv  to  com-ider  :ndr. idu.d  components  of  the 


cursor.  The  vertical  dimension  <5  pixels)  of  the  cur-or  span.'  E'-e  dulerer.:  reiutt 
addresses  in  video  RAM.  Additionally,  the  hori/ont.i’.  dimension  d  pixels) 
cursor  may  require  an  additional  byte  of  memory .  Whether  m  additional 
required  depends  on  the  relative  position  within  a  h\ te  of  the  uirs-r  -.enter. 


e  hue 
of  the 


rsor  cent 


;s  near  eitner  end  of  a  bvte. 


tne  next 


from  cursor  center  will  also  be  required  to  display  the  cursor. 

The  set  cursor  algorithm  uses  the  <  X.Y'  coordinate  to  cal 


byte  addresses.  I  hose  addresses  represent  a  block  on  the  screen 


cursor.  The  algorithm  then  uses  the  X  coordinate  to  determine  which  of  the  eight  bit 
positions  within  a  byte  represents  cursor  center.  Then  one  of  eight  possible  bit 
patterns  is  generated  to  represent  the  cursor.  Resetting  a  cursor  requires  less  program 
steps  since  a  block  of  seven  relative  byte  addresses  are  erased  without  regards  to  the 
exact  position  of  the  cursor  within  the  block. 


•-  .v 


III.  PERFORMANCE  AND  EVALUATION 


A.  DEMONSTRATION  PROGRAMS 

Four  demonstration  programs  are  provided  in  Appendices  B-E.  Those  programs 
along  with  the  user  s  guide  m  Appendix  A.  will  aid  the  user  in  writing  graphics 
programs  using  the  Ada  language. 

1.  Program  AGTEST1 

Program  AGTEST1  draws  a  test  pattern  demonstrating  the  use  of  color 
selection,  line  drawing,  circle  drawing,  and  filling.  This  test  uses  ADAGRAP1I 
procedures  COLOR.  SET_CL  RS.  CIRCLE.  DRA\Y_LIXE.  BOUNDARY, FI LL.  and 
AREA  FILL. 


2.  Program  AGTEST2 

Program  AGTEST2  draws  a  pattern  consisting  of  two  sets  of  curves  and  a 
color  wheel  illustrating  the  eight  available  colors.  AGTEST2  uses  ADAGRAPH 
procedures  COLOR.  DRA\Y_LI\L.  DRA\Y_M LINE.  CIRCLE,  and  AREA_F1LL. 


3.  Program  AGTEST3 

Program  AGTEST3  demonstrates  interactive  control  of  the  graphics  cursor. 
The  user  is  asked  repetitively  to  enter  an  (X.Y)  coordinate.  The  program  then  displays 
a  cursor  centered  at  that  coordinate  and  erases  the  previous  cursor. 

4.  Program  AGTEST4 

Program  AGTLST4  begins  by  drawing  a  circle  of  the  approximate  maximum 
area  < approximately  seven  square  inches)  that  can  be  tilled  by  a  single  call  to  one  of 
the  fill  procedures.  It  then  fills  the  circle  and  goes  on  to  demonstrate  how  polygons 
may  be  drawn  by  setting  resetting  individual  pixels.  It  also  demonstrates  filling  an  area 


containing  an  object.  .-\GTLST4  uses  ADAGRAPH  procedures  COLOR. 
SLT_PIXLL,  RESLT_P1XLL.  CIRCLE.  BOUND.\RY_FlLL.  and  AREA, I  ILL. 


B.  ADA  GRAPHICS  LIBRARY  LIMITATIONS 


ITe  Ada  graphics  library  presented  in  this  thesis  was  developed  as  a  prototype. 
Limitations  of  the  library  procedures  should  not  cause  significant  problems  to  the  user 
as  long  as  the  guidelines  presented  m  the  user's  guide  (Appendix  A)  are  followed.  1  ho 


only  known  procedures  which  can  cause 


catastrophic  failure  ii  limits  are  exceeded  arc 


Th 


roeeuures  can 


at  most  a  coiiiicuous  area  oi 


:s 
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‘  4-..’'**  Mv-  .'-.V  -iV  fitf  . ».  .J 


approximately  seven  square  inches.  Even  filling  a  seven  square  inch  area  may  cause  an 
error  if' the  starting  point  is  not  near  the  center  of  the  area.  However,  if  the  user  will 
limit  the  -uze  of  contiguous  areas  to  be  filled  to  approximately  3-4  square  inches,  then 
the  probability  of  failures  is  very  low.  The  reason  for  this  limitation  is  that  the  fill 
routines  are  implemented  as  recursive  procedures.  As  a  recursive  procedure,  each  level 
of  recursion  requires  that  three  more  parameters  be  pushed  onto  the  system  stack. 
Attempting  to  fill  too  large  an  area  simply  results  in  a  stack  overflow. 

Another  area  of  inconvenience  for  the  user  may  occur  in  attempting  to  use  the 
graphics  library  along  with  other  libraries,  e.g..  the  standard  I  O  library.  The  standard 
I  O  library  procedure  GET  automatically  causes  scrolling  of  the  display  screen  by  one 
character  row  each  time  it  is  executed.  This  is  an  obvious  problem  when  used  in 
concurrence  with  a  fixed  position  graphics  display. 


C.  H/Z-100  hardware  limitations 

A  potential  problem  area  for  the  user  is  due  to  the  limited  number  of  colors  <S) 
available  for  display.  This  may  be  particularly  inconvenient  when  writing  interactive 
programs  using  the  graphics  cursor  or  any  other  symbols  which  are  to  be  moved  within 
the  display.  Management  of  movable  objects  can  become  very  costly  in  terms  of' both 
processing  time  and  amount  of  program  code.  The  H  Z-100.  while  comparable  to 
many  other  microcomputers,  is  still  quite  slow  in  displaying  a  complex  graphics  picture. 


One  method  of  optimizing  the  management  of  moving  objects  in  the  display  is  to 
restrict  those  objects  to  a  dedicated  color  plane.  If  this  is  done,  then  updating  the 
position  of  a  moved  object  can  be  done  without  disturbing  the  graphics  objects  defined 
in  the  other  color  planes.  A  disadvantage  of  this  approach  is  that  there  are  only  three 
color  planes  available  to  begin  with  and  by  dedicating  one  color  plane  to  something 
like  a  cursor  reduces  the  colors  available  for  other  objects  from  eight  to  four. 

D.  TIMING  MEASE  REM  ENTS 

Table  4  provides  a  summary  of  timing  measurements  performed  to  determine 
average  graphics  processing  times  for  the  most  critical  operations.  Times  represented 
in  the  table  are  average  times  that  one  would  expect  to  encounter  in  a  call  1 3  Ada 
graphics  library  procedures  when  drawing  a  graphics  picture. 

The  fill  procedures  are  quite  slow  due  to  the  large  number  of  steps  involved  in 
testing  and  setting  each  pixel  and  the  additional  overhead  related  to  a  recursive 
procedure.  The  timing  differences  between  drawing  horizontal  vertical  lines  mid 
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IV.  RECOMMENDATIONS  FOR  FI  TI  RE  DEVELOPMENT 


Any  future  additions  modifications  to  the  Ada  graphics  library  mould  consider 


showing: 

The  feasibihcv  of 


implementin'.:  a  nonrecursive 


routine. 


Development  and  implementation  of  different  1  O  procedures  that  are  more 
compatible  with  a  graphics  Jisplav  to  replace  those  in  the  standard  1  O 
library.  In  particular,  these  ‘  procedures  should  allow  placement  of 
alphanumeric  symbols  at  anv  screen  coordinate,  not  just  the  predefined 
character  pom::6::v  An\  scrolling  of  the  screen  should  aiso  be  strictly  under 
the  control  of  the  user  program. 

rite  possibility  of  .optimizing  some  of  the  existing  procedures.  For  example, 
remaps  the  mapping  from  a  N  coordinate  to  a  dfspTnahie  vc,m  line  could  be 
performed  mere  'e:iib;e:uh  bv  a  lookup  table.  But.  would  the  time  saunas 
justify  the  additional  memory  required? 

The  feasibility  of  developing  and  implementing  a  subset  of  the  GKS  standard 
as  a  level  ol  abstraction  aoote  the' primitives  provided  in  the  Ada  arapmcs 
urrary. 

Tire  feasibility  of  networking  two  or  more  H  Z-10O  computers  to  provide 
interactive  operator  communication  on  one  svstem  while  providing  a  graphics 
display  on  another.  . 

The  feasibility  of  modifying  the  structure  of  the  Ada  graphics  library  so  that  it 
is  compatible  with  the  MS-DOS  operating  svstem  hosted  on  the  H  Z-l<">, 


V.  CONCLUSION 


The  imrlememation  of  :l:c  Ada  graphics  ! : ;'i ,ir>  on  the  il  /-l1"1  computer  has 
proven  the  Anno;'  o:'  developing  Ada  graphics  programs  on  a  microcomputer.  The 
It  / - 1 1 " 1  :s  .er:...::.'  'latume  lor  educational  purposes  out  its  ubiiir.  'o  meet  real  rune 
tactiv.u  requirements  w  limited.  'i  has  hmratmn  >  not  unique  to  the  II  Z-l'"1.  Pat  ;s  a 
genera,  limitation  of  most  microcomputers  available  today.  We  utn  expect  tins 
limitation  to  ease  significantly  over  the  next  sc. era!  years  a>  low  cost  multiprocessor 
'tem.s  are  developed. 

!  he  Ada  crannies  Imrarv  was  implemented  .x  low  level  primitives  neccs-.arv  ■,) 
mternme  with  ,.:tu  control  the  II  Z-l""  hardware.  The  library  functions  were  no: 
designed  in  accordance  with  any  recognized  standards.  However,  the  functions  wen 
designed  with  graphi-s  standards  m  mind.  The  implementation  of  a  higher  level  (;KS 
standard  graphics  library  would  be  a’  .  to  use  most  of  the  present  Ada  graphics  library 
primitives  to  interlace  with  the  II  Z-l1*"  hardware.  The  implementation  if  a  (IKS 
standard  as  a  level  above  the  machine  dependent  Ada  graphics  library  would  assist  in 
making  any  developed  Ada  language  graphics  programs  transportable  to  other 
computers.  The  benefits  winch  may  be  realized  from  a  standard  interface  ro  a  language 
are  oov.ous  with  the  high  costs  of  developing  software.  Although  the  architectural 
limitations  of  the  H  Z-l""  are  not  compatible  with  a  full  implementation  of  the  GKS 
standard,  the  educational  benefits  that  could  be  realized  from  even  an  implementawm 
.:  ab'Ct  e:  the  CiKS  standard  warrants  further  investigation. 

1  he  limited  capabilities  of  the  I1Z-I"U  may  limit  its  suitability  for  many 
opera!:  mil  tu-tim!  applications,  liowever.  it  can  be  a  useful  system  for  program 
iv. e!,',v:‘.eut.  Wi’ii  the  support  d  the  Ada  eripi.ws  Imr.trv.  the  II  Z-l1"1  c  in  ;ss;st  u. 
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APPENDIX  A 
USER'S  Gl  IDE 


1.  INTRODUCTION 

Twelve  graphics  procedures  are  available  to  the  user.  These  procedures  are 
included  in  ADAGRAPH.LIB  which  is  callable  ircm  die  Ada  programming  language. 
Appendices  B-E  provide  lour  example  programs  demonstrating  the  linkage  and  calling 
procedures  necessary  to  use  the  Ada  graphics  library.  Procedures  available  to  the  user 


(1)  CIS 

(2)  COLGR(  color_code:  in  INTEGER; 

(3)  INCUIRE_COLOR(  x_coord,  y_coord:  in  INTEGER; 

color_code:  out  INTEGER) 

(4)  SET_PIXEL(  x_coord,  y_coord;  in  INTEGER) 

(5)  RE3ET_? IXEL( x_coord,  y_coord:  in  INTEGER) 

(5)  TRAW_LINZ( x_start ,  y_start,  x_end,  y_end: 

in  INTEGER) 

(  7 )  DP.AW_MLINE(  x_start ,  y_start,  x_er.d,  y_end: 
in  INTEGER) 

(3)  Cir~LS( x.center,  y_center,  radius:  in  INTEGER) 
(9)  P.OUNDAP.e_FI  LL(  x_coord,  y_coord,  fill_color, 

boundary_color:  in  INTEGER) 


(13)  ARZA_FILL( x_coord,  y_coord.  fili_color:  in  INTEGER) 


(11)  SET_CURS( x_coord,  y_coord:  in  INTEGER) 

(12)  RE3ET_CCR3( x_coord,  y_ccord:  in  INTEGER) 


I  allowing  *i.e 
-all  t o  t lie  described 
m  \A  ■  coordinate 


descripti  m  ol  each  function  ;s  an  example  oi’  tiie  Ada  language 
procedures.  It  should  be  noted  that  for  ail  procedures  that  require 
that  the  allowable  ranee  o!  X  is  •  and  the  allowable  ranee  of 


(  LEAKING  THL  SCREEN 

'  1  '  t  graphics  pi ngrair.'  w :’.i  re..;ure  dearng  tiie  Juplav  screen  before  dispiavine 
In  I  ins  :'C't  per;  uiiied  bv  calling  procedure  (  L.S.  1  his  procedure  takes 


advantage  of  a  built-in  hardware  feature  which  allows  resett  ng  all  of  video  RAM  in 
one  frame  period  < approximately  lt>.~  ms). 

--  Clear  the  screen 
CLS; 

3.  COLOR  SELECTION 

The  H  Z-l'x)  has  the  capability  of  displaying  up  to  eight  different  colors.  Color 
selection  is  performed  by  calling  procedure  COLOR  and  passing  a  color  code 
parameter  identifying  the  desired  color.  Table  3  lists  the  colors  available  and  their 
respective  color  codes.  Black,  is  not  listed  as  a  color  option  since  it  is  the  only  color 
which  is  displayed  by  resetting  a  pixel,  i.e..  writing  a  "0 '  to  that  pixels  corresponding 
addresses  in  video  RAM.  All  other  colors  are  displayed  by  writing  a  T  in  the 
appropriate  relative  address  of  the  color  planes  required  to  produce  the  desired  color. 
If  a  pixei  is  to  be  reset  to  black  then  the  RESET_PIXEL  procedure  should  be  used. 
--Set  system  color  to  green 
COLORi  5 1. 


!  1 

o': 

TABLE  5 

COLOR  CODES 

COLOR 

CODE  COLOR  1 

•V* 

0 

white 

„•  V 

1 

cyan 

V-.V 

2 

magenta 

V.’v* 

3 

b  i  u  e 

“~S 

ye  1 low 

5 

green 

w- 

6 

red 

INQL*IRE_COLOR(59.  60.  colon: 


5.  PIXEL  SETTING/RESETTING 

Procedures  SE1_PIXEL  and  RESET_PIXEL  are  provided  for  controlling 
individual  pixels.  Procedure  SET_PIXEL  accepts  an  (X.V)  coordinate  as  input 
parameters  and  sets  the  corresponding  pixel  to  the  current  system  color.  Procedure 
RESET_PIXEL  accepts  an  (X.V)  coordinate  as  input  parameters  and  resets  the 
corresponding  pixel  to  black. 

--Set  pixel  at  location  1 70.50)  to  current  system  color 
SET_PIXELi“0.  50 1: 

—  Reset  pixel  at  location  1 50.50)  to  black 
RESET_PIXEL\ 50.  50  s: 

6.  LINE  DRAWING 

Procedures  DRAW_LI\E  and  DR--\W_MLINE  are  provided  for  dra'.vmg  lines. 
Both  procedures  accept  as  input  parameters  the  i  X.Y)  coordinates  of  the  end  points  of 
a  line.  A  line  of  the  current  system  color  is  then  drawn  connecting  those  end  points. 
If  procedure  DRAW_LINE  is  used,  then  intersecting  lines  will  be  displayed  with  the 
last  line  drawn  on  top.  If  procedure  DRAW_MLINE  is  used  for  drawing  lines  then 
the  color  at  the  point  of  intersection  of  intersecting  lines  is  the  combined  color  of  the 
individual  lines. 

-Draw  a  line  from  coordinate  ( 100.50)  to 
-coordinate  (200.75).  This  line  will  be 
-drawn  on  top  of  any  line  it  intersects. 

DRAW_LIM1(  loo.  50.  2oo.  "5): 

--Draw  a  line  from  coordinate  ( 100.25 )  to 
-coordinate  i  10.15).  This  line  will  mix 
-colors  at  the  point  of  intersection  with 
-any  lines  that  it  intersects. 

DRAW_\[  LINE'  loo.  25.  in.  15): 

CIRCLE  DRAWING 

Procedure  circle  wili  draw  a  circle  of  the  present  system  color.  Input  parameters 
to  tins  procedure  include  an  i.X.Y)  coordinate  identifying  the  circle's  center  position 
and  a  radius  length  measured  in  units  based  on  the  number  of  pixels  (640)  m  the  X  axis 
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of  the  video  display.  The  circle  drawing  algorithm  draws  a  circle  with  automatic 
corrections  made  based  on  the  \:y  linear  pixel  ratio  i2:h  of  the  color  monitor,  i.e..  the 
circle  radius  is  twice  as  many  pixels  in  the  X  axis  as  it  is  in  the  Y  axis. 

--Draw  a  circle  of  radius  do  units  and 
—centered  at  coordinate  i, 3oo.  100). 

CIRCLE)  3oo.  loO,  50): 

8.  AREA/POLYGON  FILLING 

Procedures  BOUNDARY_FILL  and  AREA_FILL  are  available  to  perform 
filling  operations.  The  user  is  cautioned  that  the  filling  algorithm  lias  an  upper  limit  on 
the  size  of  an  area  (approximately  seven  square  inches)  which  may  be  filled  by  a  single 
call  to  either  of  the  fill  procedures.  Larger  areas  may  be  filled  by  partitioning  the 
larger  area  and  filling  the  individual  partitions.  The  user  can  generally  avoid  problems 
by  limiting  all  fills  to  a  contiguous  area  of  not  more  than  3-4  square  inches. 

Procedure  BOl'\DARY_FI  LL  accepts  as  input  parameters  an  (X.Y)  coordinate 
identifying  the  starting  point,  a  fill  color  code,  and  a  boundary  color  code  (Table  5). 
The  procedure  begins  filling  from  the  starting  I  X.Y)  coordinate  and  sets  ail  pixels 
within  the  defined  boundary  to  the  designated  fill  color.  The  boundary  must  be  a 
single  color  defined  by  the  boundary  color  code. 

Procedure  AREA_FILL  accepts  as  input  parameters  an  (X.Y)  coordinate 
identifying  the  starting  point  and  a  fill  color  code  (Table  5).  The  procedure  starts  at 
the  input  (X.Y)  coordinate  and  sets  all  pixels  in  a  contiguous  area  which  are  the  same 
color  as  the  pixel  at  the  (X.Y)  starting  coordinate  to  the  specified  fill  color.  This 
procedure  can  fill  an  area  which  is  bounded  by  different  colors  since  filling  is  based  on 
the  color  of  the  area  to  be  filled. 

--Beginning  at  coordinate  (50,75).  fill  an  area 
--with  blue  that  has  a  red  boundary. 

B O L  \ D A R Y_ F I L L ( 50.  75.  3.  6): 

-Fill  a  contiguous  area  with  green.  An  internal 
--point  in  that  area  is  coordinate  ( lnn.luu). 

ARF.WTI.I.i  1  oh.  I'M).  5): 

I.  Cl  RSOR  CONTROL 

Procedures  SFT_CF'RS  and  RTSFT  CL  RS  are  provided  for  cursor  control,  live 
graphics  cursor  controlled  by  these  procedures  is  a  "  —  ",  The  center  of  the  cursor  is 


used  as  a  reference  point  for  cursor  placement.  All  management  of  cursor  display  is 
the  responsibility  of  the  user.  The  cursor  is  simply  a  special  graphics  symbol  which  the 
user  may  display  and  erase.  The  number  of  cursor  symbols  which  may  be  displayed  at 
any  point  m  time  is  determined  solely  by  the  user's  program. 

Procedure  SET_CURS  accepts  as  input  an  t\,Y)  coordinate  and  displays  a 
cursor  symbol  of  the  present  color  at  that  coordinate.  Procedure  RE$ET_CURS 
accepts  as  input  an  tX.Y)  coordinate  and  resets  a  block  of  relative  memory  addresses 
centered  at  the  corresponding  <X.Y)  coordinate.  The  color  planes  affected  are 
determined  by  the  present  system  color.  It  is  suggested  that  if  the  user  desires  to  use 
the  cursor  as  a  background  symbol  then  the  cursor  color  should  be  restricted  to  a 
smgle  color  plane  (red.  green,  or  blue)  that  is  dedicated  to  cursor  display.  If  this  is  not 
demo  then  a  management  scheme  must  be  implemented  in  the  user  program  to 
maintain  the  integrity  of  non-cursor  graphics  data  when  setting  resetting  the  cursor. 

--Display  a  green  cursor  at  coordinate  (15U.1UU). 

COLORt  5 ); 

SET_CL*RS(  150.  100): 

--Erase  a  green  cursor  at  coordinate  (5o,~5). 

COLORt  5); 

RESET_CURS(50.  75): 


APPENDIX  B 
GRAPHICS  TEST  1 


WITH  10,  UTIL, ADAGRAPH; 

PACKAGE  BODY  AGTEST1  IS 
USE  10,  UTIL,  ADAGRAPH; 

--THIS  PROGRAM  DRAWS  A  TEST  PATTERN  TO  TEST  COLOR  SELECTION, 
--CURSOR  SETTING,  CIRCLE  DRAWING,  LINE  DRAWING ,  AREA  FILLING 
--AND  BOUNDARY  FILLING 

x_p os,  y  nos  :  integer; 
quit  :  character; 
begin 
CL5  ; 

x_pos  :=  320; 
y_pos  :=  108; 

color (5);  --GREEN 
set_curs(300 ,  135); 
color (3);  --BLUE 
--DRAW  A  CIRCLE 

circle (300,  102,  142); 
color (o);  --RED 
--  DRAW  A  RECTANGLE 

draw_line ( 153 ,  31,  442,  31); 
draw_lme  '442 ,  31,  442,  173  ); 
draw_line (442 ,  173,  153,  173); 
draw_lme  (i53 ,  173,  153,  31); 

--DRAW  A  CIRCLE  AND  FILL  IT 
circle ( 300 ,  102,  40); 
area_fill(300 , 102,3) ; 

--DRAW  AN  IRREGULAR  POLYGON  AND  FILL  IT 
drav_line(20 , 20 , 30 .22); 
araw_line (50 ,22,34,50); 
draw  line (84, 50 , 17 ,43) ; 
draw  line ( 17, 43,20.20)  ; 
boundary  £ill( 50 , 35 , 6 , 6 ) ; 

--DRAW  A  TRIANGLE  AND  FILL  IT 

draw_lme  ( 50 , 100 ,30,130)  ; 
draw_line .'50,130,20,139)  ; 
draw_line ( 50 , ICO ,20,130) ; 
area_fill( 50 ,120,5); 
color (2);  --MAGENTA 
--DRAW  A  RECTANGLE 

draw_line ( 10 ,  10,  590,  10); 
draw_line ( 590 ,  10,  590,  205); 
dr aw_line ( 590 ,  205,  10,  205); 
dr aw_line ( 10 ,  205,  10,  10); 
color ( 5  )  ; 

--DRAW  A  RECTANGLE  WITH  DIAGONAL  LINES 
draw_lme  ( 2C0  ,  52,  400,  52); 
draw_lir.e  ( 400  ,  52,  400.  152); 
draw_iine ' 400 ,  152,  200,  152); 
draw_lme  ( 200  ,  152,  200,  52); 
draw_lir.e  :  200  ,  52,  400,  152); 
draw  line ' 200  ,  152,  400,  52); 
cetiquit;; 
end  AGTEST1; 
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appendix  c 

GRAPHICS  TEST  2 


WITH  10.  UTIL  .ACAGEAPH; 

PACKAGE  BCD'/  AGTE5T2  IS 
USE  ID.  UTIL,  ADAGRAPH; 

--THIS  PROGRAM  ENERGISES  THE  LINE  DRAWING, 
--AND  AREA  RILLING  PROCEDURES  TO  PRODUCE  A 
--WITH  COLORED  CURVES  AND  A  COLOR  WHEEL 


CIRCLE, 

PICTURE 


x,  y,  yl ,  y2 .  pool  :  integer; 
quit  character 


color '■  i  )  : 

--LOOP  TO  DRAW  CURVE  1 
for  i  in  0  .  .  63  Iood 
x  :=  i  *  10; 
y2  :=  i 39  -  yl; 

Sraw_mime  ( x ,  y,  0,  y2); 

V  :  =  y  +  2  ; 
yl  :=  yl  +  3; 

end  loco; 
y  :=  0; 
yl  :=  0; 
color < 1 ) ; 

--LOOP  TO  DRAW  CURVE  2 
for  i  in  0 .  .  63  loop 
x  :=  630  -  ( i  *  10)  ; 
v2  :=  139  -  yl; 
cr aw_mline (x*  y,  630,  y2); 

V  :  =  y  +  2  ; 
yl  :=  yl  +  3; 

end  Iood; 

--draw  a  Color  wheel 

color (0)  ;  --‘WHITE 
circle ( 320 ,  150,  100); 


drav_Ime  (320 , 
draw_line ( 220 , 
draw_line  ( 249 , 
draw_line ( 391 , 

100, 

150, 

115, 

115, 

320  , 
420, 
391 , 
249, 

200)  ; 

150  )  ; 

135  ; 
135)  ; 

area_f ill (355, 

115, 

0)  ; 

--COLOR 

0 

= 

WHITE 

arealfilli 391 , 

140  , 

1) 

--COLOR 

1 

= 

CYAN 

area_filif  391 , 

170 , 

§i: 

--COLOR 

2 

MAGE;  !TA 

area_fill(’ 330 , 

135  , 

--COLOR 

r> 

= 

BLUE 

area_f ill (310 , 

155  , 

4)  ; 

--COLOR 

4 

= 

YELLOW 

area  fill(249. 

160, 

5)  ; 

--COLOR 

5 

= 

G  r.LL.  i 

area_fill(249, 
get <  quit)  ; 
d  AGTlSI2 ; 

130, 

5) ; 

--COLOR 

6 

RED 

I 
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APPENDIX  D 
GRAPHICS  TEST  3 


WITH  10,  UTIL , ADAGRAPH ; 

PACKAGE  BODY  AGTEST3  IS 
USE  10,  UTIL,  ADAGRAPH; 

--THIS  PROGRAM  IS  USED  TO  TEST  SETTING  AND  RESETTING 
--OF  A  GRAPHICS  CURSOR.  THE  PROGRAM  REQUESTS  CURSOR 
--POSITION  INPUTS,  ERASES  THE  PREVIOUS  CURSOR,  AMD 
--DRAWS  A  CURSOR  AT  THE  INPUT  (X,Y)  COORDINATE 

i  :  integer,- 

x_p os,  y_pos ,  x_old,  v_old  :  integer,- 
begin 
CLS  ; 

x_old  :=  0;  --INITIALIZE  X  &  Y 

V_o!d  :=  0; 

for  i  in  1 .  .  50  loop 

put ("ENTER  X  POSITION  "); 
get(x_pos) ; 

put  "ENTER  Y  POSITION  "),- 
get(y  oos) ; 
colorT^);  --GREEN 
reset_curs (x_old,  y_old) ; 
set  curs(x_pos,  y_pos); 

X_oId  :=  X_pOS; 
y_old  :=  y_pos  -  13; 
end  loop ; 
end  AGTEST3; 


APPENDIX  E 
GRAPHICS  TEST  4 


WITH  10,  UTIL , ADAGRAPH ; 

PACKAGE  BODY  AGTEST4  IS 
USE  10,  UTIL,  ADAGRAPH; 

--THIS  PROGRAM  IS  USED  TO  DISPLAY  A  CIRCLE  OF  THE  APPROXIMATE 
--MAXIMUM  AREA  THAT  CAM  3E  FILLED  BY  A  SINGLE  CALL  TO  ONE  OF 
--THE  FILL  ROUTINES.  IT  THEN  DEMONSTRATES  FILLING  AMD 
--DRAWING  OF  POLYGONS  USING  ONLY  THE  SET_PIXEL  AND  RESET  PIXE 
--PROCEDURES, 
x,  y  :  INTEGER; 
quit  :  character; 
begin 
CL5 ; 

—  SELECT  COLOR 

color fo);  --WHITE 
--DRAW  A  CIRCLE 

circle ( 300 ,  102,  115); 

--FILL  THE  CIRCLE  WITH  RED 

boundary  fill(3C0,  102,  6,  0); 
color(l );  --CYAN 

--DRAW  A  RECTANGLE  USING  SET  PIXEL 
for  x  in  250.. 350  loop 
set_pixel(x,  77); 
set_pixel(x,  127 ) ; 
end  loop; 

for  y  in  77 . .127  Iood 
set_pixel(250 ,  y)  ;' 
set_pixel(350 ,  y) ; 
end  loop,- 

--FILL  THE  RECTANGLE 

area  fill(300,  102,  5);  --COLOR  5  =  GREEN 
--ERASE  A  RECTANGLE  USING  RESET  PIXEL 
for  x  in  280.. 320  loop 
for  y  in  92 . . 112  loop 
reset_pixel(x,  y); 
end  loop; 
end  looo ; 

area_fill ( 375 ,  102,  2); 
colord) ; 

get (quit) ; 
end  AGTFST4 • 


end  AGTEST4; 


APPENDIX  F 

SPECIFICATION  PACKAGE 


PACKAGE  ADAGRAPH  IS 


EE 

i  s-i  A.  i 

ADDRESS 

VARIABLE: 

EE 

:t_ad: 

r_5L . RET 

_R7A , RET_ 

k- 

.  -  __r  1 L 

,  R£  1'  A 

r  ii.L  ,  k z  . 

EE 

,i  E  ML 

RET  R? 

E : INTEGER 

ctr 

RSCR 

ADDRESS 

VARIABLE: 

c  t 

:?.s  o, 

CURS  1 , 

CURS  2 , CU 

A 

LOC: 

INTEGER 

X. Y  POS 

IT  TON  a; 

;d  genera: 

X_START  ,  Y  START  .  X_END  ,  Y  END  :  INTEGER  ; 

X_?CS  .  Y  PCS  ,  DELTA  J-: ,  DELTA  Y ,  I!IC_CTR :  INTEGER  ; 
L_ERRCR , END  CNT :  INTEGER ; 

x_otr  ,  y_ctr  ,  radius  ,  :-:_rel  .  y_rel  ,  ?j;al  :  integer  ; 

--CDLCR  VARIABLES 

?_:CLOR , ?  COLOR , 3_COLOR : INTEGER ; 

--SYSTEM  STATUS 

SYS_STAT :  INTEGER; 

-  -  c  r  c* 

TeGME‘nT_E  ,  SEGMENT  FE  .  SEGHENT_IE  :  INTEGER  ; 

--COLOR  PLANE  BASE  ADDRESS 
COL  PL.ADDR:  INTEGER; 

SA7  C0L1  STAT . SAV_CCL2  STAT , SAV_COL3  STAT :  INTEGER ; 

:ol_?l: , :ol_?l2 , col_pl3 :  integer ; 

--FILL  ROUTINE  CONTOL  VARIABLE 
COL  MIX:  INTEGER; 

--GRAPHICS  LIBRARY  PROCEDURES 


PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 
PROCEDURE 
PROCEDURE 
END  ADAGRAPH; 


CLS  • 

COLOR ( color  code  :  in  INTEGER); 

SET  JOURS <x_pos,  y_pos  :  in  INTEGER); 
RE3ET_CURSTx_pcs‘  y_pos  :  in  INTEGER); 
DRAW_LINE (x_start ,  y_start,  x_end,  y_end 
DRAW_MLINE(x_start ,  y  start,  x  end,  y_end 
CIRCLE (x  ctr,  y_ctr,  radius  :  In  INTEGER) 
INQUIRE  COLOR (x _pos,  y_pos  :  in  INTEGER; 

color  :  out  INTEGER); 

3CUNDARY  FILL ( x  oos ,  v_ocs,  f  color,  b_color  : 
~  in ‘INTEGER f; 

AREA_FILL(x_pos ,  y_pos,  f  coior  :  in  INTEGER); 
SET_PIXEL(x  oos,  y_pos  :  In  INTEGER); 
RESET_PIXELlx_pos ,  y_pos  :  in  INTEGER); 


in  INTEGER); 
in  INTEGER); 


APPENDIX  G 

ASSEMBLY  CODE  LISTING 


PACKAGE  ASSEMBLY  ADAGRAPH 
JMP  MAIN 


^XXTrXXXXXXXXXXXTrTC^TCXXKXXXXKXXX^^KXXKrrXXXXKXXTTX^^X^TCK^KTT^TtXKXKTTSXX^XXXXX 


; PROCEDURE  CLS  IS  USED  TO  PERFORM  A  CLEAR  SCREEN  OPERATION 
PROC  CLS; 


PUSH 

AX 

IN 

AL,  ODSH 

;  SAVE 

VIDEO  STATUS 

PUSH 

A  A 

MOV 

AL.OFH 

OUT 

0D3H ,  AL 

; BLANK  THE  SCREEN 

IN 

AL,  ODBH 

A!  ID 

AL,  0F7H 

OUT 

ODBH,  AL 

;S£T 

BIT  3  =  0 

IN 

AL,  0D9H 

AND 

AL,  0F7H 

OUT 

0D9H ,  AL 

; ENABLE  CLRSCRN  SIGNAL 

MOV 

CX,  6630 

;  INIT 

COUNTER  FOR  TIME  DELAY 

DELAY : 

NO? 

.  r^Mir 

DELAY  TO  ALLOW  VIDEO  PROCESSOR 

LOOP 

DELAY 

;  TIME 

TO  CLEAR  VIDEO  MEMORY 

IN 

AL,  0D9H 

OR 

AL ,  03H 

OUT 

0D9H ,  AL 

; DISABLE  CLRSCRN  SIGNAL 

POP 

AM 

OUT 

0D3H ,  AL 

.•RESTORE  SYSTEM  STATUS 

POP 

AX 

RET 

END  PROC  CLS; 

.  TTXX^X^XKXTT 

.,TX7r?>r'TrT'r^:7rrr7r^:7r^x7C^^7r^’T--r^:^''r-T7r"r^r^rx-^xx?r^7r7r?T^^7»-xx^:^r^7r^7r7r^:xx^'^^rrT'r7r7^7r7r'r7r^-r^:^'r 

; PROCEDURE 

COLOR 

IS  USED  TO  ENABLE  COLOR 

PLANES  TO  PROVIDE  THE  SELECTED 

; COLOR  AND 

THE  E 

SEGMENT  REGISTER  IS  INITIALIZED  TO  ALLOW  WRITING  TO 

;THE  ENABLED  COLOR  PLANES. 

PROC  COLOR; 

POP 

DX 

;  SAVE 

RETURN  ADDRESS 

POP 

AM 

;GET 

COLOR  CODE 

PUSH 

DX 

.•RESTORE  RETURN  ADDRESS 

AND 

AX,  7 

;HASK 

COLOR  CODE  TO  SET  STATUS  FLAGS 

JMZ 

COLOR1 

MOV 

COL  PL1 

,  0C000H 

; COLOR  IS  WHITE 

MOV 

COL  PL2 

,  ODOOOH 

MOV 

rcOL  PLS 

,  OEOOOH 

JMP 

EXIT  COL 

COLOR1  : 

SUB 

AL,  1 

JMZ 

COLOR2 

MOV 

COL  PL1 

,  0C000H 

; COLOR  IS  CYAN 

MOV 

COL  PL2 

,  CEOOOH 

MOV 

COL  PLS 

,  OEOOOH 

JMP 

Exit  col 

C0L0R2  : 

SUB 

AL,  1 

JMZ 

:CL0R3 

MOV 

COL  PL1 

,  OCOOOH 

; COLOR  IS  MAGENTA 

MOV 

COL  PL2 

,  ODOOOH 

MOV 

COL  PLS 

,  ODOOOH 

JMP 

EXIT  COL 

COLORS : 

SUB 

AL ,  1 

JMZ 

C0L0R4 

MOV 

COL  ?L1 

,  OCOOOH 

; COLOR  IS  BLUE 

MOV 

COL  ?L2 

,  OCOOOH 

MOV 

COL  PLS 

,  OCOOOH 

JMP 

-HIT  COL 

COLORS  : 


C0LCR4  : 


SUB 


C0LCR5  : 


COLORS  : 


EXIT  COL: 


MOV 

MOV 

MOV 

JMP 

SUB 

JMZ 

MOV 

MOV 

MOV 

JM? 

SUB 

JNZ 

MOV 

MOV 

MOV 

JMP 

MOV 

OUT 

RET 


AL,  1 
COLOR5 
COL_?Ll 
COL  ?L2 
COL_?L3 
EXIT  COL 


ODOOOH 

OEOOCH 

CEOOOH 


; COLOR  IS  YELLOW 


COLORS 
COL_?Ll 
C0L_?L2 
_CCL_?L3. 
EXIT  COL 
AL,  1 
EXIT_COL 
COL_FLi] 
COL_?L2 
COL_PL3 
EXIT_COL 
AL ,  7  SK 
0D3H,  AL 


OEOOOH 

OEOQOH 

OEOOOH 


:  COLOR  IS  GREEN 


ODOOOH 

CDOOOH 

ODOOOH 


;  COLOR  IS  RED 


; DISABLE  SIMULTANEOUS  WRITE 


END 

.  X  7T  TT 


'c  col::. 


•  PROCEDURE  RESET_CURS  IS  USED  TO  ERASE  THE  GRAPHICS  CURSOR 
: AN  ( X , Y )  POSITION  IS  INPUT  TO  THE  PROCEDURE  AND  THE  A  BLOCK  OF 
■ADDRESSES  IS  CLEARED  AT  THE  CURSOR  LOCATION 
?5or  FFF- 


URS  ; 

MOV 

1 

:  SEGMENT  El, 

POP 

AX 

POP 

[Y  POS' 

PC? 

X~POSl 

PUSH 

AX 

PUSH 

iX  POS' 

PUSH 

‘Y  POS' 

CALL 

ADJ  SL 

CALL 

REL  VID  ADDR 

POP 

BX 

CALL 

BLANK  GCURS 

SUB 

BX,  1 

CALL 

BLANK  GCURS 

SUB 

Y  POS' 

,  1 

PUSH 

X~POS' 

PUSH 

Y  POS' 

CALL 

ADJ  SL 

CALL 

REL  VID  ADDR 

POP 

BX 

CALL 

I 

BLANK  GCURS 

SUB 

1Y  POS' 

,  1 

PUSH 

X  POS 

PUSH 

’Y  POS' 

CALL 

i 

^D J  SL' 

CALL 

REL  VID  ADDR 

FCP 

BX 

CALL 

BLANK  GCURS 

ADD 

Y  POS' 

,  3 

PUSH 

X  POS' 

PUSH 

'Y  PCS' 

CALL 

i 

\2l  SL' 

ES  ; SAVE  SEG  E  STATUS 
;SAVE  RETURN  ADDRESS 
;GET  Y  POSITION 
;GET  X  POSITION 
; RESTORE  RETURN  ADDRESS 


; ADJUST  Y  POSITION  TO  A  DISPLAYABL 
; S CAN  LINE  &  GET  VIDEO  ADDRESS 


VI D  ADDR 


PC? 
r  • 


5LANK_GCURS 
I 


:H 

;u 


PCS] 

pcs' 


_?OS] 

A.D  J_5L 
REL  7 ID  ADDR 


CALL 


BLANK  GCURS 


44 


ES,  [ SEGMENT_E ]  ; RESTORE  SEG  E 


MOV 
RET 

EMD  RROC  RESET_CURS  : 


;  r  KU 


ROC 


ICE DURE  SLA! IK  GC'JRS 
PROC  BLANK  GCUR5 ; 

MOV 
MOV 
SEG 
MOV 
MOV 


:s  USED  EY  PROCEDURE  RESET  CURS  TO  ERASE 


cu: 


r  7*"^  yr 

■.SCR 


AX,  [COL_?Ll] 
ES  ,  AX 
ES 

[3X]  ,  0 


COL  ?L2 


=.3 


3  JL'sJ 

MCV 

MOV 

MOV 

SEG 


to 

r  svi 


*.f  ~  IT 


-3Xi l  0 
AX,  L C0L_?L3 
ES  ,  AX 
ES 

[sx]  ,  0 


:md 

.  t  ■t  x  y 


--K7T 
r  rr-r 


XKX’r»M' 

•kirr 


TT  TTTXIT' 


PROC  3LAMX_GCURS ; 

r^tXT7CT^*T-'rTTT'WX?r?r'TT^XTXKX^XX'lir^X,KXX7r-TKr‘: 
,r-rrr,*^»»^TTTtr»'i:T-r»r’rrTTTr^7?^rri:^X7CX7riT7rxT:^-,r*r 

';  PROCEDURE  SET.CURS  IS  USED  TO  DISPLAY  A  CURSOR  AT  THE  INPUT 
;{X,Y)  POSITION.  THE  GRAPHICS  CURSOR  DISPLAYED  IS  A  "  +  " . 

PROC  5ET_CURS; 

; CALCULATE  MEMORY  ADDRESS  OF  MEW  CURSOR  POSITION 

ES  ; SAVE  SEG  E  STATUS 
;SAVE  RETURN  ADDRESS 
;GET  Y  POSITION  FROM  STACK 
;GET  X  POSITION  FROM  STACK 
; REPLACE  RETURN  ADDRESS 


MCV 

[SEGMENT  E] 

POP 

AX 

POP 

[Y  POS] 

POP 

[x_?os] 

PUSH 

MOV 

DX,  [Y  POS] 

PUSH 

[ Y_POSj 

CALL 

ADJ  SL 

POP 

BX 

;GET  CORRECTED  Y  LINE  NUMBER 


;THE  CURSOR  IS  MADE  UP  OF  FIVE  COMPONENTS  LABELED  CURS_0  TO  CURS_4 


MOV 

MOV 

MOV 

MOV 

MOV 

SUB 

MOV 

CMS 


CURS_0 
CURS  1 
CURS_2 
CURS  3 
CURS~4 
CURS_0 
AX ,  [ CURS_0 
CO 


DX 

DX 

BX 

DX 

DX 

2 


; PUT  THE  LINE  NUMBER  INTO 
; EACH  OF  THE  CURSOR  ROWS 


CO  : 


MOV 

AX,  3 

ADD 

[CURS  0]  , 

PUSH 

[CURS  0 

CALL 

ADJ  SL 

PC? 

[CURS  0] 

SUB 

[CURS  I], 

MOV 

AX ,  [ CURS 

JNS 

Cl 

ADD 

[CURS  1]  , 

PUSH 

[ CURS_1 ] 

CALL 

ADJ  SL 

PC? 

■»  "• 

f CURS  1] 
r  r-T^ -  —  ^  -1 

AX 


; ADJUST  EACH  CURSOR  ROW  TO  REFLECT  IT 
; DISTANCE  FROM  CURSOR  CENTER  POSITION 
; WHICH  IS  CURS_2 

; THEN  CALL  PROCEDURE  ADJ_SL  TO  ASSURE 
; THAT  EACH  CURSOR  ROW  IS  LOCATED  ON 
; A  DISPLAYABLE  SCAN  LINE 


PUSH 


?:? 

ADD 

PUSH 


PC  ? 

F  U  3  H 
?  U  S  H 
cam:. 


L  CURS_ j  j  , 

LCURS_s1 
AD J_SL 
CURS 
CURS14] 

_  CURS_4 ] 
AD  J_S  L 

[ CUH5_4 ! 
r  v  o  r 


'■=■  {  j 


to.\ 

REL  VID  AD DR 


45 


PUSH 

rx  ?os] 

PUSH 

"CURS  *1 

REL  VIC  ADDR 

PC? 

r curs  oT 

PUSH 

,'x  PCS1 

PUSH 

■  CURS  1 ] 

r*^  t  * 

REL  VID  ACCR 

PC? 

[ CURS  1 i 

PUSH 

X  ?C31 

PUSH 

; CURS  A 

CALL 

REL_VI DEADER 

?  U  S  H 

[CposT' 

PUSH 

[CURS  i] 

PnLL 

REL  VIC  ACCR 

PCP 

[CURS  3 J 

PUSH 

'  A_PC'Sj  _ 

P  U  5  H 

r  CURS  4 

CAL- 

REL  VIC  ACCR 

POP 

: CURS  4 

%  f *  7 

[>:  ?  cs; 

: GET  X  PCS ITI CM  FOP  TEST 

'  »  T. 

n  A  ,  'J  /  M  ; 

CALCULATE  CURSOR  BIT  PC  S I T I 

•DRAW  THE  CURSOR 

BASED  ON  CURSOR  CENTER  BIT  FOSITIOM  WITHIN  A  B 

; THIS  SPLITS  THE 

CURSOR  ACROSS  BYTE 

BOUNDARIES  FOR  FULL  SCREEN 

J!iZ 

BIT! 

;TEST  FOR  CURSCR  IN  X  PIXEL 

n—  ,  j 

3X ,  [CURS  2’ 

SUB 

BX,  1 

-  -  *  r 
■-  *n  — 

CIS?  GCURS 

M  ^  *  T 

AL,  OEOH 

AID 

BX,  I 

CALL 

DISP  GCURS 

MOV 

AL,  SOH 

MOV 

BX,  [CURS  0] 

•_n  — — 

DISP  OCUR3 

MOV 

BX.  TcuRS  i] 

/"•*•**■ 
n  < — . 

CIS?  GCURS 

MOV 

BX,  tCURS  3] 

CALL 

DISP  GC'JRS 

MOV 

BX,  ICURS  41 

CALL 

CIS?  GC'JRS 

CM? 

EXIT 

S I T 1 :  SU3 

AL,  1 

.•DECREMENT  3IT  COUNT  FOR  ME 

5 IT2 

:.E5T  FOR  CURSCR  IN  X  PIXEL 

][Z'y 

BX,  ; CURS  21 

SUB 

BX,  1 

MOV 

AL,  I 

—  ■*  r  r 

DISP  GCURS 

MOV 

AL,  OPGH 

n  w-  J 

—  — 

l.S?  GCURS 

MOV 

AL .  4  OH 

! !  J  v 

sx .  r  curs  o ; 

CA^i- 

CIS?  GCURS 

!  !C  V 

5x,  7-'urs_i  ; 

.n«M 

~I3P  GCURS 

! '  c  7 

BX,  7'CUR5_3! 

C A.  -  1 

1  ISP^CCUPu; 

ul  / 

sa  .  .  7  A-  j  4  . 

-  A  -  - 

;:c?_s;u?s 

„  7r 

z  I 

EI72 :  SUE 

AL  ,  I 

: CE  CFENENT  BIT  COUNT  FCP  NE 

E  I T3 

;  *.  z.  3  ~  r  -  R  IjKoCK  -  i  i  a 

* !  - 

r.  —  ,  .  3  CT 

tA  . 

5a,  L:.r5_2; 

~  "  "  Z>  ~  ’~"Z  ~ 

\\-yj 

AL,  21H 

4a 

.■•  .A"*'  ".'-  j.-*  »'/• 

AL ?  1 1  ; DECREMENT  BIT  COUNT  FOP.  HEX!  TE3 

BITS  ___  ;  TEST  FOR  CURSOR  III  X  PIXEL  PCS. 

=x’  ^  ;u?.s_Z ; 

CT5P  GCURS 
AL,  3 

5  x ,  ;cu?.s_o] 

CIS?  SCL'RS 
BX,  TCU?.S_1] 

CIS?  ' GCURS 
BX,  TCURS_3] 

DIS?  GCURS 
BX,  fCURS_4] 

DIS?_GC’JRS 

AL*  *  1  DECREMENT  BIT  COUNT  FOR  NEXT  TEST 

BIT6  ;TEST  FOR  CURSOR  IN  X  PIXEL  POS .  5 

AL,  1FH 
BX,  [ CURS_2 ] 

DIS?_GCURS 
AL,  4 

BX,  [ CURS_0 ] 

CIS?  GCURS 
BX,  XCURS_1] 

DISP  GCURS 
3X ,  ~CURS_3] 

DIS?  GCURS 
BX,  TCURS_4] 

D I 5?_GCURS 
t.-.I  I 

AL,  1  ; DECREMENT  BIT  COUNT  FOR  NEXT  TEST 

3IT7  ; TEST  FOR  CURSOR  IN  X  PIXEL  POS.  6 

nu ,  OFH 
3X ,  [ CURS_2 ] 

DISPJGCURS 
AL  ,  oOH 
BX,  1 

CTSP_GCURS 

nL,  2 

BX,  [ CURS_Q ] 

DIS?  GCURS 
BX .  ^CURS_1] 

CIS?  GCURS 
BX,  7CUPS_3 1 


Y  IN  3ND : 


1ST  XUPR : 


MOV 

BX, 

375 

MOV 

AX  , 

30H 

>  f  T  *  T 

BX 

PC? 

BX 

1 1ST 

BX , 

SOOOH 

JN5 

1ST 

XUPR 

1  *  ^  'T 

BX , 

0 

HO  7 

DX , 

639 

SUB 

DX , 

BX 

JMS 

X  IN  3MD 

HCV 

BX , 

639 

MC7 

CL, 

3 

SHR 

CL 

ADD 

BX , 

AX 

PUSH 

EX 

PUSH 

r  RE 

H 

1 

:v 

u * 

; PUT  SCALE  FACTOR  IN  AX 
; AND  SCALE  Y  5ASED  ON  LIME  NUMBER 
;GET  X  POSITION 
; TEST  FOR  X  <  0 


;TEST  FOR  X  >  639 


X  IN  2ND:  MOV  CL,  3  ; AND  DETERMINE  BYTE  X  OFFSET 

SHR  EX,  CL  ;3Y  DIVIDING  X  POSITION  3Y  3 

ADD  SX ,  AX  ; ADD  X  OFFSET  TO  GET  BYTE  ADDRESS 

-••5-  cv  -RETURN  RrT  ATTV~  Bv_rE  FDDFESS 

PUSH  1  RET_R7A]  RESTORE’  RET  URN  "ADDRESS 

RET 

END  PROC  REL_VID  AD DR; 

.  +  +  +  *^^^?'^+^^vt^7tKy?7r-k-k-k'k-Tmx'kyr7r,k7r-^;-*:7r'r-r7t7t-k-k'K7r7K7t7r-k7r'k 

•LINE  DRAWING  PROCEDURE  WITH  COLOR  MIXING  FOR  CROSSING  LINES 

proc  :?.av;_mline  r 

POP  iRET_DML;  ; SAVE  RETURN  ADDRESS 

MOV  COLJ-IIX]  ,  1  ;  ENABLE  COLOR  MIXING 

CALL  DRAWW  LINE  ;C-0  DRAW  THE  LINE 

PUSH  [RET.DML]  ; RESTORE  RETURN  ADDRESS 

RET 

END  PRO  I  DRAW  MLIN’E  : 

, xxxxxxxxxxxxxxxxxxxxxxx^xxxxxxxx^xxxxx^xxx^xtcxxxxx^xxxxxxxxxxxxxxxxxxxx 

L I N E __ D F A V.' I N G _ P R 0 C E D U R E  WITHOUT  COLOR  MIXING  FOR  CROSSING  LINES 

. -"‘POP  RET_DML]  ;SAVE  RETURN  ADDRESS 

MOV  [COL  MIX] ,  0  ; DISABLE  COLOR  MIXING 

CALL  DRAWW  LINE  ;GO  DRAW  THE  LINE 

PUSH  [RET_DML]  ; RESTORE  RETURN  ADDRESS 

END  PROC  DRAW~LINE ; 

•  PROCEDURE  DRAWW  LINE  PROVIDES  PRIMITIVE  LINE  DRAWING  CAPABILITIES 
,-THE  SUBROUTINE  ACCEPTS  AS  INPUT  A  PAIR  OF  ENDPOINTS  IDENTIFIED  BY 
;  ( X ,  Y)  COORDINATES 
PROC  DRAWW  LINE  ; 

MOV  BP,  S? 

PUSH  DS 

MC-7* "  BX,  f3?*3l  ;GET  X  START  FROM  STACK 

MOV  [ X_Sf ART  j \  BX 

MOV  BX,  [ B?+o ]  ;GET  Y  START  FROM  STACK 

MOV  [Y  START],  BX 

MOV  BX,  [3P+4]  ;GET  X  END  FROM  STACK 

MOV  [X_END] ,  BX 

MOV  AX,  [BP-t-2]  ;GET  Y  END  FROM  STACK 

MOV  [Y_END ] ,  AX 

; TEST  ORDERING  OF  Y  COORDINATES.  THE  ALGORITHM  EXPECTS  TO  FIND  THE  Y 
;  COORDINATE  IN  INCREASING  ORDER  OR  0. 


;GET  X  START  FROM  STACK 
;GET  Y  START  FROM  STACK 
;GET  X  END  FROM  STACK 
;GET  Y  END  FROM  STACK 


5T0  DY: 


MOV 

AX , 

[Y  END] 

SUB 

r\  A  , 

[Y  START 

J  xs 

STO 

DY 

MOV 

.n/» , 

1 X_START 

HO  7 

EX , 

[ X_END ] 

MO  7 

[  ■* 

S  i  A  R 1  j  ,  3 

M  '■“* 

1  x_ 

END] ,  AX 

*  f  '  J 

AX , 

[Y  START 

iiov 

TO 

[YlEND] 

» ♦  ^ » 7 

4  IV  / 

IX 

START] ,  B 

MOV 

1  X  _ 

END  j  ,  AX 

— >  U/  U 

nA  , 

EX 

X07 

[DE 

- in_X  J  ,  n 

; JUMP  IF  Y  ORDERING  OK 
; ELSE  SWAP  START  AND  END  COORD. 

; S3  Y  START  VALUE  IS  LTE  Y  END 
; VALUE .  THEN  CALCULATE  DELTA  Y. 


,««B — ■K,  1  tA  i, .afiL -JZ+jA 


'U'-V- V- U' ."v'vv 


;  CALCULATE  DELTA  X 


C  2  QR  3: 


CASE  2: 


C  CASE2 : 


DR  _C2  : 


DR  C 2 C 


CASE  2C : 


CASE  3: 


Mivr 


c  •  ■  ^ 

jms 

T».f  T5 

MOV 

SUB 

JN5 

~\t  ^ 

MOV 

MOV 

MOV 

ADD 

JNZ 

JM? 

MOV 

MOV 

DI7 

Sue 

MOV 

SUB 

JMS 

JM? 


MOV 

ADD 

JM? 

MOV 

MOV 


AX ,  f  X_END 1 
AX.  r X_S TART ] 
[DELtA_X’ 

! INC_CTR 
L  ERROR 


rtX  , 


AX 

i 


ix  star: 

:OS"r  -V 


AX.  i'Y'ST 

n.K  i  ] 

:::v 

PUSH 

tV-?csT, 

X  ?CSl 
:OCS] 
DIME  SEG 

AX 

;  PLOT 

FIRST  POINT 

^DELTA-Xj 

*  ^  A  __w  1 
*’■  -  —  ^  *  "7 

,  3C  jCH 

;  TEST 

FOR  NEGATIVE  SLOPE 

*  ^  : 

Jfiz- 

SUB 

■C_2_CR_3 
„  DELTA^X] 

,  7FFFH 

,  1 

;TEST 

FOR  DELTA  Y  =  0 

CASE_1  : 

P  U  5  H 

» X  PCS  , 

• x_?os; 

i Y  PCS’ 

1 

;  DRAW 
;  DX  > 

LIME  FOR  SPECIAL  CASE 
0  AND  DY  =  0 

TdeltaIx] ,  i 

CASE  2 
EXIT  DL 
AX,  "[delta  Xl 

*  ••  r--:  -^~—i 

CASE-2 

AX?  {DELTA  X] 
[ END_CMT ] ,  AX 

BX,  [DELTA-Y] 
BX,  1 
C_CASE2 
DR_C2 

AX?  £DELTA_X] 

BX  ’ 

[L_ERROR],  AX 

AX,  [ END-CMT ] 
AX,  INC-CTRJ 
DR  C2C 
EXIT  DL 


JMS 

CASE 

2C 

ADD 

'X  POS' 

,  1 

PUSH 

[X  POS' 

PUSH 

Y  POS 

CALL 

LINE 

SE 

EG 

MOV 

AX,  |L_ 

ERROR] 

ADD 

AX, 

DELTA  Y 

MOV 

"L  ERROR],  AI 

ADD 

INC 

CTR],  1 

JM? 

DR  C2 

ADD 

'X  POS' 

,  1 

ADD 

[Y  POS' 

,  i 

PUSH 

'X  POS 

PUSH 

|  Y  POS’ 

CALL 

LINE 

SEG 

MOV 

AX , 

L 

ERROR] 

ADD 

AX , 

’  n= 

U  k. 

ELTA-Yj 

f  .-ERROR]  , 
IIMC-CTR],  i 
2 

[ DELTA-Y 1 
[END  CUT]  ,  A?: 


uti 
n.  A 


;  DX  >  0  AND  DY  >  0 


r  DX  >=  DY 


; ADD  IN  CORRECTION  FACTOR  FOR 
;  SMOOTHING 
;  CORR  =  DX/ (DY+1 ) 


,-INIT  ERROR  VAL.  WITH  CORR.  FACT. 
;TEST  INCREMENT  COUNTER 


5000H  ;TEST  IF  ERROR  <  0 
; E  RRO  R  <  0 


;  ERROR  >=  0 


;  DY  >  DX 


CASES  : 


DR  C3 


DR  CSC: 


CASE  3C 


TSTDYZ  : 


CASE  4: 


C  5  OR  6 : 


CASE  5: 


MOV 

BX,  [DELTA_X] 

ADD 

3  X ,  1 

JMZ 

C  CASES 

J!!P 

DR  C3 

ax,  r delta  y] 

MOV 

DX,  0 

-r-T 
-/  -  i 

3X 

MOV 

[L_ERROR] ,  AX 

MOV 

AX,  [END  CNT' 

SU5 

AX,  (INC  CTR' 

JM5 

DR  CSC 

JM? 

EXIT  DL 

[L_ERROR] ,  30G0H 
CASE  SC 
[X_POS],  1 
Y_?OS  ,  1 

x_?os 

Y_POS 
LINE  SEG 

ax,  Tl_error; 

AX,  I  DELTA  X 
AX,  [  DELTA-'/' 
’L_ERRCR] ,  AX 
INC_CTR] ,  1 
DR_CS 
iY_?OS],  I 
iX  POS' 

[Y  POS' 

LINE  SEG 
AX,  IL  ERROR] 

AX,  [ DELTA  X ] 

[ L_ERROR] ,  AX 
[INC  CTR] ,  1 
DR_C5 

[DELTA_Y ] ,  7FFFH 
C  5  OR  6 

AX,"0FFFFH  ; 

AX,  [DELTA  X] 
DELTA  X],  AX 
'X_POST,  1 
'X_POS' 

Y_POS 
LIME_SEC 
[DELTA_X] ,  I 
CASE_4 
EXIT_DL 
AX,  0 

AX,  DELTA_X] 

AX,  [DELTA_YJ 
CASE  5 


AX,  ^DELTA_X ] 
[  EIID _ CUT  ]  ,  AX 

SX,  [DELTA_Y] 


; ADD  IN  CORRECTION  FACTOR  FOR 
; SMOOTHING 
; CORR  -  DY/(DX+1) 


; INIT  ERROR  VAL.  WITH  CORR.  FA 
;TEST  INCREMENT  COUNTER 

;TEST  FOR  ERROR  <  0 
; ERROR  <  0 


; ERROR  >=  0 


7FFFH  ;TEST  FOR  DY  >  0 


; PROCESS  SPECIAL  CASE  WHERE  DX 
; AND  DY  =  0 


;CASE  3  OR  4.  DX  <  0  &  DY  >  0 


; DY  <=  ABS (DX) 


ADD  IN  CORRECTION  FACTOR  FOR 

SMOOTHING 

CCRR*=‘bx/ (DY+1 ) 


;  Hi  IT  ERROR  WITH  CORR.  FACT. 


R  CSC  : 


DR_C5C 

EXIT.DL 

[L.ERRCR] ,  SCOOH 
CASE. SC 
[X.POSl,  1 
L X.POSl 
l'-_?cs  ] 

LINE  5EG 

AX,  Tl.errcr] 

AX,  [ DELTA.? 1 
[  L_ERRGR i  ,  AX 
iliJC  CTR],  1 
DR  C5 

i 

•Ocsi,  : 
i x_?cs] 
fY.POSJ 

line  seg 
ax,  ’--PPPOR1 

AX ,  1  Dn.  —  l  ri _ X  . 

AX  ,  i  1 

f  L.ERP.QR] ,  AS 
;  INC  CTR J  ,  I 
DR  '"E 

ax7'’[delta_y] 

[END.CNT],  AX 


B  A  ,  1 

EX,  ‘DELTA 
C.CASE6 
~D  rz 


;TEST  IF  ERROR  <  0 
;  ERROR  <  0 


:  ERROR  >=  0 


AX.  'DELI 

•  •  A 

A_Y  ] 

— .  J 

-A  ,  U 

^  .  V 

BX 

MOV 

: L_ERROR] 

,  AX 

MOV 

AX,  [END. 

CNT1 

S  w  D 

AX.  fllJC 

DR  CSC 

JJ.tp 

EXIT  DL 

TEST 

\  L  ERROR] 

,  3000H 

JII5 

CASE  SC 

SUB 

: X  PCS  ?  , 

i 

i Y  POSl , 

PUSH 

;x_?cs] 

7  r ‘ 

; ABS ( Da )  <  DY 


: ADD  IN  CORRECTION  FACTOR  FOR 

:  SMOOTHING 

;CORR  =  DY/ ( DX+1 ) 


;  IN IT  ERROR  WITH  CORR.  FACT. 
;  TEST  INCREMENT  COUNTER 

;TEST  FOR  ERROR  <  0 
;  ERROR  <  0 


AX,  "Tl.ERRGR’ 

ax,  [delta.:*:; 

A  a  ,  t  D  a  L  _ i 


: ERROR  >=  0 


I 


3 


MOV 

AX, 

[COL  PL2] 

MOV 

ES  , 

AX 

SEG 

ES 

OR 

[5X] 

.  DL 

MOV 

AX, 

[COL  PL3] 

MOV 

ES, 

AX 

SEG 

ES 

OR 

[BX] 

,  DL 

PUSH 

[ret 

LS] 

MOV 

RET 

ES  , 

"[SEGMENT  I 

PUSH  RET  LS]  ; RESTORE  RETURN  ADDRESS 

MOV  ES,  tSEGMENT  E]  ; RESTORE  SEG  E 

RET 

END  PROC  LINE_SEG; 

.  XXX7C7C7TX?:^XX7CX7icTT7<7T?:XXX7CX7?7fXX^XX7C^XXX7tXXXXX^^XX^XXX^^7it7C7CXX7:XX7fXTi:5ir7CX7CX^XK 

,:  PROCEDURE  CIRCLE  INPUTS  X  &  Y  COORDINATES  OF  THE  CIRCLE  CENTER 
; AND  A  RADIUS  VALUE.  IT  THEN  DRAWS  A  CIRCLE. 

PROC  CIRCLE; 


;GET  X  CENTER  COORDINATE  OFF  STACK 

;GET  Y  CENTER  COORDINATE  OFF  STACK 

;GET  RADIUS  VALUE  AND  SET 
; INITIAL  VALUES  FOR  X  AND  Y  COORD. 


CIRC  LP: 


DR  CIRC: 


MOV 

BP, 

SP 

MOV 

AX, 

[  3P+S  ] 

MOV 

[;<_ 
AX , 

CTR] ,  AX 

MOV 

'  [ BP+4] 

MOV 

rv 

CTR] ,  AX 

MOV 

DX, 

[ BP+2 ] 

MOV 

[  Y_ 

RtL] ,  DX 

MOV 

x_ 

RELj  ,  0 

MOV 

CL, 

1 

SHL 

DX, 

CL 

MOV 

AX, 

3 

SUB 

AX, 

DX 

MOV 

[P_ 

VAL] ,  AX 

MOV 

AX, 

'Y  REL] 

SUB 

AX, 

'X  RELj 

JNS 

DR 

CIRC 

POP 

AX 

POP 

BX 

POP 

BX 

POP 

BX 

PUSH 

AX 

RET 

CIRCLE 

ARE  PLOTTED  IN  G! 

1/2  TO 

COMPENSATE  FOR  X 

MOV 

AX, 

[X  CTR] 

MOV 

DX, 

'X  RELJ 

ADD 

AX, 

DX 

MOV 

[X_ 

POS] ,  AX 

PUSH 

AX 

MOV 

AX, 

|Y_REL] 

MOV 

CL, 

SHR 

AX, 

CL 

ADD 

AX, 

[Y_CTR] 

PUSH 

AX 

;TEST  IF  FINISHED  DRAWING  CIRCLE 


; REMOVE  INPUT  PARAMETERS  FROM  STACK 


;EXIT  SUBROUTINE 


; CALCULATE  POINT  1 


CALL 

ADJ  SL 

POP 

[Y  POS' 

PUSH 

[Y  POS' 

CALL 

REL  VID  ADDR 

PUSH 

(X_POSl 

CALL 

CIR  PIXEL 

MOV 

AX,  [X  CTR] 
DX,  [X  RELJ 

MOV 

SU3 

AX,  DX 

MOV 

[X_PCS] ,  AX 

PUSH 

AX 

PUSH 

[Y_POS] 

CAT  l 

REL  VID  ADDR 

PUSH 

[ X_?OS ] 

CALL 

CIR  PIXEL 

PUSH 

[X  POS] 

;  PLOT  ( X_CENTER+X ,  Y_CENTER+Y ) 
r CALCULATE  POINT  2 


;PLOT  (X_CENTER-X,  Y_CENTER+Y ) 
.•CALCULATE  POINT  3 


W 


'  X  CTR 
XREL 


DX 


AX 


[Y  ?0S] 

REL  VID  ADDR 
[x_Fos] 

CIR_PIXEL 
AX, 

DX, 

AX, 

[X  PCS' 

AX~ 

[ Y_POS ] 
REL_VID_ADDR 
[ X  POS ] 

CIR  PIXEL 
ax  ~[x_CTR] 

[ Y_REL] 
DX 

AX 


n 

DX, 

AX , 

[ X_POS 
AX 


[X_REL] 

1 

CL 

[Y_CTR] 


AX, 

CL, 

AX, 

AX, 

AX 

ADJ  SL 
Y_POS] 

Y_POS 
REL  VID_ADDR 
(X_POSl 
CIR_PIXEL 
AX,  [X_CTR] 
DX,  [Y_REL 
AX,  DX 
[X_POS] ,  AX 

!y_pos] 

REL  VID  ADDR 
[X_POS] 

CIR  PIXEL 
[XJPCS] 

BX,  [X_REL] 

1 

CL 

[Y_CTR] 
BX 


CL, 

BX, 

AX, 

AX, 

AX 

AD J_SL 
Y_POS ’ 

Y  POS' 

REL  VID  ADDR 
[ X  POS ] 

CIR  PIXEL 
AX,  [X  CTR] 
DX.  [YlRELj 


;PLOT  (X  CEMTER-X,  Y  CENTER-Y) 
; CALCULATE  POINT  4 


;PLOT  (X  CENTER+X,  Y_CENTER-Y! 
; CALCULATE  POINT  5 


;PLOT  (X_CEMTER+Y,  Y_CENTER+X) 
; CALCULATE  POINT  6 


; PLOT  (X_CENTER-Y,  Y  CEMTER+X) 
; CALCULATE  POINT  7 


; PLOT  ( X_CENTER-Y .  Y_CENTER-X1 
.•CALCULATE  POINT  3 


aa 


[Y_?OSj 

Rel_vid_addr 

[ X_ PCS ] 

CIR_FIXEL  ;  ? LOT  (  X_CEN'TER*Y 


.-TEST  P 


[PJ/ALl,  3000H 


JNS 

P  DECY 

MOV 

CL,  2 

MOV 

AX,  fX  REL 

SHL 

AX,  CL 

ADD 

AX ,  6 

ADD 

j ;?_VAL1  ,  A! 
[X  REL] ,  1 

A,  2D 

•MO 

CIRC  L? 

MOV 

CL,  2 

MOV 

AX,  [X  REL 

SUB 

AX,  LY  REL 

SHL 

AX,  CL 

ADD 

AX,  10 

ADD 

r?  VAL] ,  a: 

[Y_REL  ,  1 

w  -wD 

ADD 

X  REL]  ,  1 

JMP 

CIRC  LP 

; P  :=  P  +  (4  *  X)  +  6 

; INCREMENT  X  COUNT 

?  2ECY.  MOV  CT.  7  ;p  :=  P  +  4  *  (X  -  Y)  +  10 


; DECREMENT  Y  COUNT 
; INCREMENT  X  COUNT 

JMP  CIRC  LP 

PRCC  CIRCLE: 


MOV 

SEG 

AMD 

MOV 

MOV 

SEG 

AND 

MOV 

MOV 

SEG 

OR 

MOV 

MOV 

SEG 

CR 

MOV 

MOV 

SEG 

OR 

PUSH 

MOV 


ES,  DX 
ES 

[BX] ,  CL 
DX,  OEOOOH 
ES,  DX 
ES 

[BX] ,  CL 

DX,  [ COL_PLl ]  ;SET  PIXEL  TO  DESIRED  COLOR 
ES,  DX 
ES 

[BX] ,  AL 
DX,  [COL_PL2] 

ES ,  DX 
ES 

[BX] ,  AL 
DX,  [COL  PL3] 

ES,  DX 
ES 

[BX] ,  AL 
RET  CPE] 

ES,  ISEGMENT  E]  ; RESTORE  SEG  E 


RET 

MD  PROC  CIR_?IXEL; 

PROCEDURE  SET  PIXEL  ACCEPTS  AS  INPUT  AN  (X,Y)  COORDINATE  AND  SETS 
CORRESPONDING  PIXEL  TO  THE  SYSTEM  COLOR 


yr  x  x  x  7t  x 

kkkkkk 


THE 


PROC  SET 

PIXEL; 

MOV 

BP, 

SP 

MOV 

[SEGMENT  E], 

POP 

[RET  SPET 

MOV 

MOV 

AX,  TBP+4] 

[X  POST  ,  AX 

CALL 

ADJ 

SL 

CALL 

REL 

_VID_ADDR 

POP 

BX  ' 

MOV 

DX, 

^X_POS] 

AND 

DX, 

JNZ 

PBIT1 

MOV 

AL, 

80H 

MOV 

CL, 

7FH 

JMP 

PIX 

ON 

PBIT1  : 

SU3 

DL,' 

'1 

JNZ 

PBIT2 

MOV 

AL, 

40H 

MOV 

CL, 

OEFH 

;SAVE  ES  STATUS 
;SAVE  RETURN  ADDRESS 
;GET  X  POSITION 


;GET  RELATIVE  BYTE  ADDRESS 
;MAKE  A  BIT  MASK 


PBIT2  : 


PBIT3  : 


P3IT4  : 


P3IT5 . 


JMP 

SUB 

JNZ 

MOV 

MOV 

JMP 

SUB 

JNZ 

MOV 

MOV 

JMP 

SUB 

JNZ 

MOV 

MOV 

JMP 

SUB 

JNZ 

MOV 

MOV 

JMP 

SUB 


PIX_CN 
DL,  1 
PBIT3 
AL,  20H 
CL,  ODFH 
P I X_ON 
DL,  1 
PBIT4 
AL,  10H 
CL,  OEFH 
PIXJON 
DL,  1 
PBIT5 
AL,  3 
CL,  0F7H 
FIX  ON 
DL,  1 
P3IT6 
AL,  4 
CL,  OFBH 
PIX_ON 
DL,  i 


PBIT6  : 


PSIT7  : 


MOV 
JMP 
MOV 
MOV 

PIX_ON:  MOV 

MOV 
SEG 
AMD 
MOV 
MOV 
SEG 
AMD 
MOV 
MOV 
SEG 
AND 
MOV 
MOV 
SEG 
OR 
MOV 
MOV 
SEG 
OR 
MOV 
MOV 
SEG 
OR 

PUSH 

MOV 

RET 


CL,  OFDH 
PIX  ON 
AL,~1 


OFEH 

OCOOOH 

DX 


CL, 

DX, 

ES  , 

ES 

[BX] ,  CL 
DX,  ODOOOH 
ES,  DX 
ES 

[ BX] ,  CL 
DX,  GEOOOH 
ES,  DX 
ES 

[BX]  CL 
DX,  [COL  PL1 ] 
ES,  DX 


[  3X] 
DX, 
ES  , 

fix] 

DX, 
ES  , 
ES 


f  COL_PL2 ] 
DX 


[COL_PL3] 

DX 


[BX] ,  AL 
RET  SPE] 

es,  Tsegment.e] 


CLEAR  ALL  COLOR  PLANES  AT  SELECTED 
PIXEL  LOCATION  BEFORE  SETTING 
PIXEL  TO  MEW  COLOR 


;SET  PIXEL  TO  DESIRED  COLOR 


; RESTORE  RETURN  ADDRESS 
; RESTORE  SEGMENT  E 


END  PROC  SET.PIXEL; 

.  ******** x* ****x******************* ******* ********************* ****** 
. xx***************** *********** A******************************** ******** 

•PROCEDURE  RESET_PIXEL  ACCEPTS  AS  INPUT  AN  (X,Y)  COORDINATE  AND  RESETS 
;THE  CORRESPONDING  PIXEL  BY  WRITING  "0"  TO  ALL  COLOR  PLANES 
PROC  RESET_PIXEL ; 


MOV 

BP,  SP 

MOV 

[SEGMENT  E],  ES 

; SAVE  ES  STATUS 

POP 

l 

IRET  RPET 

;SAVE  RETURN  ADDRESS 

MOV 

ix,  Tbp+4] 

;GET  X  POSITION 

MOV 

1 

rX  POS] ,  AX 

CALL 

£ 

i.DJ  SL 

CALL 

REL  VID  ADDR 

POP 

BX 

;GET  RELATIVE  BYTE  ADDRESS 

MOV 

DX,  [X  POS] 

AND 

DX,  7 

;MAKE  A  BIT  MASK 

JNZ 

RBIT1 

MOV 

AL,  7FH 

JMP 

PIX  OFF 

R3IT1  : 

SUB 

DL,  1 

JNZ 

RBIT2 

MOV 

AL,  OBFH 

JMP 

PIX  OFF 

RBIT2  : 

SUB 

DL,  I 

JNZ 

RBIT3 

MOV 

AL,  ODFH 

JMP 

PIX  OFF 

RBIT3 : 

SUB 

DL,  1 

JNZ 

R3IT4 

MOV 

AL,  QEFH 

JMP 

PIX  OFF 

R3IT4 : 

SUB 

DL,  I 

JNZ 

R3IT5 

MOV 

AL,  0F7H 

JMP 

PIX  OFF 

RBIT5  : 

SUB 

DL,  1 

JNZ 

RBIT6 

RBIT6  : 


R3IT7 : 
PIX  OFF: 


MOV 

AL,  0F3H 

JMP 

PIX  OFF 

SU3 

DL.  I 

JNZ 

R3IT7 

MOV 

AL,  OFDH 

JM? 

FIX  OFF 

MOV 

AL,  QFEH 

MOV 

DX,  CCQOOH 

MOV 

ES,  DX 

SEG 

ES 

AND 

[BX] ,  AL 

MOV 

DX,  0D000H 

MOV 

ES  ,  DX 

SEG 

ES 

AND 

[3X] ,  AL 

MOV 

DX,  OEOOOH 

MOV 

ES,  DX 

SEG 

ES 

AND 

[BX] ,  AL 

PUSH 

t?.ET  RPE  ] 

MOV 

ES,  "["SEGMENT  E] 

RET 

; RESTORE  RETURN  ADDRESS 
; RESTORE  SEGMENT  E 

END  PROC  RESET  PIXEL; 

•PROCEDURE  INOUIRE  COLOR  IS  USED  TO  INTERFACE  WITH  HIGHER  LEVEL  ADA 
: PROGRAMS  IN  ORDER  TO  HANDLE  I/O  PARAMETER  PASSING 
PROC  INQUIRE_COLCR; 


MOV 

BP,  SP 

PUSH 

BP 

PUSH 

[3P+6 1 

; PUSH  X  POSITION 

PUSH 

[  BP+4 ] 

; PUSH  Y  POSITION 

CALL 

INQ  CC 

)LOR 

;GET  PIXEL  COLOR 

POP 

AX 

; COLOR  VAL  RETURNED 

POP 

BP 

MOV 

BX,  [BP+2] 

MOV 

[BX]  , 

AX 

; RETURN  PIXEL  COLOR 

RET 

END  PROC  INQUIRE .COLOR; 

.  XT**************** ******* *********************************************** 


; PROCEDURE  INQ_COLOR  ACCEPTS  X  &  Y  COORDINATES  AS  AN  INPUT  AND 
; RETURNS  THE  PIXEL  COLOR  CODE  OF  THAT  LOCATION 
PROC  INQ_COLOR ; 


MOV 

BP,  S? 

MOV 

AX,  F  3P+4] 

MOV 

POP 

[X  POS] .  AX 
[RET  IC 

;  SAVE 

RETURN  ADDRESS 

CALL 

ADJ  SL 

CALL 

REL  VID  ADDR 

POP 

BX 

PUSH 

[X  POS] 

CALL 

X  MASK 

POP 

CX 

;  READ 

MASK 

PUSH 

ES 

;  SAVE 

ES  STATUS 

MOV 

AX,  OCOOOH 

MOV 

ES,  AX 

SEG 

E5 

MOV 

DL,  [BX] 

;  READ 

DATA  IN  BLUE  BIT  PLANE 

AND 

DL,  CL 

;  TEST 

IF  BIT  SET 

•J  1  1  c- 

El 

JM? 

MO  3 

MOV 

ax7  odoooh 

MOV 

ES  ,  AX 

SEG 

ES 

MOV 

DL,  [ 3X] 

;READ 

DATA  IN  RED  BIT  PLANE 

AND 

DL,  CL 

;TEST 

IF  3IT  SET 

; RED  IS  SET,  TEST  GREEN 


B2  : 

MOV 

AX,  0E000H 

MOV 

ES,  AX 

SEC- 

ES 

NOV 

DL,  [3X] 

AND 

DL,  CL 

JUZ 

33 

JN? 

3R  NO  G 

S3  : 

.-X,  0 

JM? 

EXIT  IC 

3R_N0_G ; 

MOV 

AX,  1 

JMP 

EXIT  IC 

3_N0_R : 

MOV 

AX,  OECOOH 

NOV 

ES,  AX 

SEG 

ES 

NOV 

DL,  [SX] 

AND 

DL,  CL 

JNZ 

B4 

JMP 

B  NO  RG 

34: 

MOV 

AX,  1 

JMP 

EXIT  IC 

3_NO_RG : 

MOV 

AX,  1 

JMP 

EXIT  IC 

NC_3  : 

MOV 

AX,  ODOOOH 

NOV 

ES,  AX 

SEG 

ES 

MOV 

AND 

DL,  [BX] 

DL,  CL 

JNZ 

35 

JM? 

MO  BR 

B5  : 

MOV 

AX?  CEOOOH 

M  ~  ■? 

ES,  AX 

SEG 

ES 

MOV 

AND 

ES::  fP1 

JNZ 

B6 

JMP 

R  NO  BG 

B6  : 

MOV 

AX,  4 

JM? 

EXIT  IC 

R_M0_3G : 

MOV 

AX,  S 

JMP 

EXIT  IC 

N0_BR : 

MOV 

AX,  5E000H 

MOV 

ES,  AX 

SEG 

ES 

MOV 

AND 

DL,  [BX] 

DL,  CL 

JNZ 

57 

JM? 

NO  RGB 

B7  : 

MOV 

AX,  5 

JMP 

EXIT  IC 

NO  RGB: 

MOV 

AX,  7 

EXIT_IC: 

POP 

ES 

PUSH 

AX 

;READ  DATA  IN  GREEN  BIT  PLANE 
;TEST  IF  BIT  IS  SET 

; COLOR  IS  WHITE 
; COLOR  IS  MAGENTA 

;3LUE  IS  SET,  RED  IS  NOT,  TEST  GREEN 
; READ  DATA  IN  GREEN  BIT  PLANE 

; COLOR  IS  CYAN 
; COLOR  IS  BLUE 
; NO  BLUE,  TEST  RED 

; READ  DATA  IN  RED  BIT  PLANE 
; RED  IS  SET,  NO  BLUE,  TEST  GREEN 

; READ  DATA  IN  GREEN  BIT  PLANE 

; COLOR  IS  YELLOW 
; COLOR  IS  RED 

;NO  BLUE,  NO  RED,  TEST  GREEN 
;READ  DATA  IN  GREEN  BIT  PLANE 

,- COLOR  IS  GREEN 

; COLOR  IS  BLACK 
; RESTORE  ES 

; RESTORE  RETURN  ADDRESS 


RET 

END  PROC  IHQjCOLOR; 

.****7TT*-***Tr:»r:T**7r*?r***************************************************** 

,**^*-«T*T***x*r****^******7r***********->t**************************^****7r** 


; PROCEDURE 

:a;;d  retur 
proc  mas 


mbit:  : 


X_MASK  ACCEPTS  AN  X  COORDINATE  POSITION  AS  INPUT 
MS  A  BIT  MASK  BASED  ON  THE  X  COORDINATE 
X  ; 


?C? 

DX 

PC? 

ft  A 

AMD 

AX ,  7 

JMZ 

H 

rn 

MOV 

AX,  BOH 

J!!P 

EXIT  XN 

573 

1  V  1 

JUZ 

MBIT2 

MOV 

AX,  40H 

;  SAVE  RETURN  ADDRESS 
;GET  X  POSITION 


JMP 

EXIT_XM 

MBIT2 : 

SU3 

AX ,  i 

JNZ 

M3IT3 

MOV 

AX,  2 jH 

JM? 

EXIT  XM 

M3IT3  : 

SU3 

AX,  1 

JNZ 

M3IT4 

MOV 

AX,  IGH 

JMP 

EXIT  XH 

M3IT4 : 

SUB 

AX,  T 

JNZ 

MBITS 

MOV 

AX,  8 

JM? 

EXIT  XM 

MBITS  : 

SU3 

AX,  1 

JNZ 

MBITS 

MOV 

AX,  4 

JMP 

EXIT  XM 

MBITS  : 

SUB 

AX ,  1 

|  J 

MBIT7 

MOV 

AX,  2 

JMP 

EXIT  XM 

MBIT? : 

MOV 

AX,  1 

E  X I T  XM : 

PUSH 

AX 

PUSH 

RET 

DX 

EMIT  a*'-:.-  PUSH  AX  ; RETURN  X  MASK 

PUSH  DX  ; RESTORE  RETURN  ADDRESS 

RET 

END  PROC  XJ'tASK; 

.^*XT<7r7**K^7r*7*7'-T-x'k-k-k'yK’k-b-k-k'kik'k'kj'-k-k-kmk'k-k'k7'‘k-k-k'k?'-k-k'k-k'k-k'k-k’K'k'k7('k'k'k'k,k-k-k’X7i;mk'k-ky<-k-kjr-k7t 

•  PROCEDURE  BOUNDARY  FILL  ACCEPTS  AS  INPUT  X  AND  Y  COORDINATES,  A  FILL 
; COLOR,  AND  A  BOUNDARY  COLOR  AND  PERFORMS  A  SCREEN  FILL  WITH  THE 
; FILL  COLOR  UP  TO  THE  SPECIFIED  BOUNDARY 
PROC  BOUNDARY  FILL; 

POP  [RET_FILL] 

POP  B  COLOR] 

POP  F_COLOR j 

MOV  ’SEGMENT_FE] .  ES 

MOV  AX,  [COL  PLl 1 

MOV  [SAV  C0LT_STAT],  AX 

MOV  AX,  ~COL  PL2 1 

MOV  [SAV  COL?  stAt],  AX 

MOV  AX,  TCOL  PL3 ] 

MOV  [SAV  COLl  STAT],  AX 

CALL  B_FILL 

PUSH  [RET  FILL] 

MOV  ES,  TSEGKENT  FE] 

MOV  AX,  [SAV  COLl.STAT] 

MOV  [COL  PLlT,  AX 

MOV  AX,  tSAV  COL2_STAT ] 

MOV  [COL  PL2T,  AX 

MOV  AX,  ISAV  COLS  STAT] 

MOV  [COL_PL3T,  AX" 


r_FE] .  ES 
L  PLl  1 
L1_STAT ] , 


RET 

END  PROC  BOUNDARY_FILL  r 

.K7rTrn*7t*n7r*7t*it7'-kvr7r7K?t-k-kyK-k-A'k-k-k-A-k-k’A-A-A-A-r-K-k-k-x-k'k-kjr-A-*-k-k-rr-K-k-K-k-k-k-x-A-A-K'k*-X'A7rJ''k'k**Jr'kn 

.^^^^^^^^^^^n^7r7ryryf^^7r'k'k-k7r-k-k-k,k,k'kn,k-k'k-k-k-k-k-k'k-k-k-ky;-k7r^:yr-k-k-k-k-k4k^;'k-kiK'k-A'k'k7r7r-k’X'k'k^7K'A 

•PROCEDURE  R.FILL  IS  THE  RECURSIVE  PART  OF  THE  BOUNDARY  FILL  PROCEDURE. 

; IT  IS  USED  TO  AVOID  UNNECESSARY  PASSING  OF  THE  COLOR  PARAMETERS  WHICH 
; DO  NOT  CHANGE  ON  SUCCESSIVE  RECURRSIVE  CALLS. 

PROC  3_FILL ; 


POP 

DX 

;  SAVE 

RETURN  ADDRESS 

MOV 

cx. 

:<- 

POS] 

MOV 

EX, 

[Y 

'POSj 

POP 

[Y_ 

POS] 

;GET 

NEXT  Y  POSITION  OFF 

POP 

rx 

.POSj 

;GET 

NEXT  X  POSITION  OFF 

PUSH 

DX 

PUSH 

CX 

PUSH 

BX 

PUSH 

[X. 

POSl 

;  SAVE 

PRESENT  X  POSITION 

PUSH 

tv. 

;?osj 

;  SAVE 

PRESENT  Y  POSITION 

Jkll 


1 


i 

f 


TEST  FC: 


F  FIX: 


EXIT  F 


INO_COLOR 

AX' 

[ P_COLOR] ,  AX 
AX,  [3_C0L0R] 
TEST  FC 
EXIT~F 

AX,  T?_COLOR' 
AX,  [ F_COLOR 
F_PIX 
EXIT_F 
[X_POS] 

[ Y_POS 1 
AD J_SL 

REL  VID.ADCR 
[X_POS] 

[ F_COLOR] 
COLOR 
CIR_PIXEL 
AX,  [X_?OS] 
AX,  1 
AX 

[ Y_POS ] 

B_FILL 
AX,  [X  POS] 
AX,  I 
AX 

[Y  POS] 

B_FILL 
AX,  [Y  POS] 
AX,  1 
[X_POS] 

AX 

B_FILL 
AX,  [Y_POS] 
AX,  1 
[X_POS] 

AX 

B_FILL 
[Y  POS] 

X_?QS 


; COMPARE  COLOR  AT  PRESENT  LOCATION 
; WITH  BOUNDARY  COLOR 


; COMPARE  COLOR  AT  PRESENT  LOCATION 
; WITH  FILL  COLOR 


; SET  LOCATION  (X,Y)  TO  FILL  COLOR 


;CALL  B_FILL  PASSING  (X+1,Y) 


; CALL  B_FILL  PASSING  (X-1,Y) 


;  CALL  B_FILL  PASSING  (X,Y+1) 


; CALL  B  FILL  PASSING  (X,Y-1) 
; RESTORE  POSITION  (X,Y) 


END  PROC  B  FILL; 

.  k  A  A  A  A  A  k-k-k^  A  k  A  A  n  A  A  A  A  A  A  A  A  A  A  A  A  A  A  AA-klrk  *******  A  A  A  A  A  A  A  A  A  A  *********  A  A  A  A  A  A  A  A  A  A  A 
.  *********************************************************************** 


; PROCEDURE  AREA_F 
; FILL  COLOR.  IT 
; PRESENT  COLOR  OF 
PROC  AREA  FILL; 

POP 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

POP 

POP 

POP 

PUSH 

PUSH 

CALL 

POP 

PUSH 

PUSH 

CALL 

PUSH 

MOV 

MOV 


ILL  ACCEPTS  AS  INPUT  AN  (X,Y)  POSITION  AND  A 
FILLS  AN  AREA  WHOSE  BOUNDARY  IS  DETERMINED  BY  THE 
THE  INPUT  ( X , Y )  POSITION. 


[RET_AFILL] 

[ SEGMENT _FE] ,  ES 
AX,  [COL  PLl] 
[SAV  COLl_STAT] , 
AX,  ICOL_PL2] 
[SAV  COL2.STAT], 
AX,  fCOL_PL3 ] 

S AV_COL3_STAT ] , 
' F_COLOR] 

Y  POS] 

X  POS' 

'X_POS' 

[y_?os 
::nq  color 

B  COLOR] 

X  POS] 

Y_?OS ] 

A_FILL 
[RET  AFILL] 

£s,  Tsegment  FE] 


;SAVE  RETURN  ADDRESS 


"segm; 

;sav_ 


;GET  FILL  COLOR  OFF  OF  STACK 


; GET  COLOR  OF  INPUT  POSITION 
•  SAVE  REFERENCE  COLOR 


; CALL  RECURSIVE  FILL  PROCEDURE 
;  RESTORE  RETURN  ADDRESS 


COLl_STAT  ] 


V 

V 

V 

1 

MOV 

MOV 

MOV 

MOV 

MOV 

RET 

END  PROC  AREA  -ILL 

[COL  PL1 ] ,  AX 
AX,  TSAV  COL2 
[COL  ?L2j,  AX' 
AX,  ISAV  COLS 
[COL  ?L3j,  AX' 

.ST  AT] 

_STAT] 

8 

.X^^7T^X^X?.'r7i:^XX7rxXX7<tXXK7,rXK?C’r7r?tKXK?tXX7t?t^X7t^K5*X*X7rXKX7r7T>tX)‘t*^XXX^7r7T^XXX*^X 

N 

.  X7TXK7tXXXKKK7rK?(7r7?XK7rX7tX7TXXXXXXX?rXX7t7TX^X71C?:5lCX7rXXTr7<:XTi:^KXX7:KXXTC^XX7r7rX7CX7rX?:^^ 

•I 

* 

; PROCEDURE  A  FILL 

IS  THE  RECURSIVE  PART  OF  THE  AREA  FILL  PROCEDURE. 

; IT  15  USED  TO  AVOID  UNNECESSARY  PASSING  OF  THE  COLOR  PARAMETERS  WHICH 

;  DO  NOT  CHANGE  ON 

SUCCESSIVE  RECURRSIVE  CALLS. 

1 1 

PROC  A  FILL: 

I 

POP 

DX 

;SAVE  RETURN  ADDRESS 

s 

MOV 

CX,  [X  POS] 

s 

MOV 

BX,  [Y  POSj 

J4 

POP 

[Y  POST 

;GET  NEXT  Y  POSITION  OFF  STACK 

POP 

[X  POS] 

;GET  NEXT  X  POSITION  OFF  STACK 

o 

PUSH 

DX 

PUSH 

CX 

PUSH 

BX 

PUSH 

[X  POSl 

;SAVE  PRESENT  X  POSITION 

R 

PUSH 

!Y  PCS] 

;SAVE  PRESENT  Y  POSITION 

CALL 

ir;5  color 

* 

POP 

ax 

& 

MOV 

[P  COLOR] ,  AX 

; COMPARE  COLOR  AT  PRESENT  LOCATION 

V 

CM? 

AX,  [5  COLOR] 

;WITH  AREA  COLOR 

a 

JNZ 

EXIT  AF 

PUSH 

X  POS] 

1 

PUSH 

Y  POS] 

f 

CALL 

AC J  SL 

CALL 

REL  VID  ADDR 

PUSH 

[X  POSj 

.'i 

PUSH 

[F  COLOR] 

CALL 

COLOR 

& 

CALL 

CIR  PIXEL 

;SET  LOCATION  (X,Y)  TO  FILL  COLOR 

s 

MOV 

AX,  [X  POS] 

1 

ADD 

AX,  1 

PUSH 

AX 

5  • 

PUSH 

[Y  POS] 

> 

CALL 

A  FILL 

; CALL  A  FILL  PASSING  (X+1,Y) 

i 

MOV 

AX,  (X  POS] 

/ 

SU3 

AX,  1 

PUSH 

AX 

u 

PUSH 

[Y  POS] 

CALL 

A  FILL 

; CALL  A  FILL  PASSING  (X-1,Y) 

p 

MOV 

AX,  [Y  POS] 

ADD 

AX,  I 

(ft 

PUSH 

[X  POS] 

n*. 

<% 

PUSH 

AX 

■\ 

CALL 

A  FILL 

; CALL  A  FILL  PASSING  (X,Y+1) 

f. 

MOV 

AX,  [Y  POS] 

ft 

SUB 

AX,  1 

1 

PUSH 

[X  POS] 

p 

PUSH 

AX 

✓ 

CALL 

A  FILL 

; CALL  A  FILL  PASSING  (X,Y-1) 

> 

EXIT  AF:  POP 

[Y  POS] 

PC? 

[X  POSJ 

* 

RET 

V 

END  PROC  A  FILL; 

* 

i 

9 

MAIN: 

END  ADAGRAPH; 
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